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Tandy 1400 LTS 1239 
Tandy 102 24K $379 
Tandy 200 24K $429 




Color Computer 3 
W/128K Ext. Basics 159 




Tandy 1 000 HX $539 
Tandy 1000 TXS889 
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BIG SAVINGS ON A FULL COMPLEMENT OF RADIO SHACK COMPUTER PRODUCTS 



COMPUTERS 

Tandy 1000 HX 1 Drive 256K 539.00 

Tandy 1000 TX 1 Drive 640K 689.00 

Tandy 1000 SX 1 Drive 384K 649.00 

Tandy 3000 HL 1 Drive 512K 899.00 
Tandy 4000 1 Drive 1 Meg. Ram 1959.00 
PRINTERS 

Radio Shack DMP-106 80 CPS 169.00 
Radio Shack DMP-130A 120 CPS 279.00 

Radio Shack DMP-440 300 CPS 539.00 
Radio Shack DWP-230 Daisy Wheel349.00 

Tandy LP-1000 Laser Printer 1699.00 

Star Micron ics NX-1000 144 CPS 229.00 

Star Micron ics NX-15 120 CPS 359.00 

Panasonic P-1080i 144 CPS 199.00 

Panasonic P-1091i 194 CPS 229.00 

Panasonic P-10921 240 CPS 349.00 

Okldata 182+ 144 CPS 259.00 

Okidata 192+ 200 CPS 359.00 

Okidata 292 240 CPS 479.00 

MODEMS 

Radio Shack DCM-6 52.00 

Radio Shack DCM-7 85.00 

Practical Peripheral 2400 Baud 229.00 

Practical Peripheral 1200 Baud 149.00 



COLOR COMPUTER MISC. 

Radio Shack Drive Controller 99.00 
Extended Basic Rom Kit 14.95 

64K Ram Upgrade Kit 39.00 

Radio Shack Deluxe Keyboard Kit 24.95 
HI-RES Joystick Interlace 8.95 

Color Computer Deluxe Mouse 44.00 
Multi Pak Interface 89.00 

Multi Pak Pal Chip for COCO 3 14.95 
CM-8 6' Extension Cable 19.95 

Serial to Parallel Conv. 59.95 

Radio Shack Deluxe Joystick 26.95 
Magnavox 0515 RGB Monitor 329.00 
Radio Shack CM-8 RGB Monitor 249.00 
Radio Shack VM-4 Green Monitor 99.00 
PBJ 512K COCO 3 Upgrade 99.00 

Tandy 512K COCO 3 Upgrade 129.00 
Mark Data Universal Video Driver 29.95 
COLOR COMPUTER SOFTWARE 

TAPE DISK 
The Wild West (CoCo3) 25.95 

Worlds Of Flight 34,95 34.95 

Mustang P-51 Flight Slmul. 34.95 34.95 
Flight 16 Flight Simul. 34.95 34.95 

COCO Utll II by Mark Data 39.95 



COCO Max II by Colorware 79.95 

COCO Max III by Colorware 79.95 

AutoTermbyPXEComputing29.95 39.95 
TelePatch III by Spectrum 29.95 

TW-80 by Spectrum (CoCo3) 39.95 

TeleWriter 64 49.95 59.95 

Elite Word 80 79.95 

Elite Calc 3.0 69.95 

CoCo3512KRamDiskbyCerComp 19.95 
Home Publisher by Tandy (CoCo3)35.95 
Sub Battle Sim. by Epyx (CoCo3) 26.95 
Thexder by Sierra (CoCo3) 22.45 

Kings Quest III by Sierra (CoCo3) 31.45 
Flight Sim. II by SubLogic (CoCo3)31.45 
OS-9 Level II by Tandy 71.95 

OS-9 Development System 89.95 

Multi-View by Tandy 44.95 

VIP Writer (disk only) 69.95 

VIP Integrated Library (disk) 149.95 

Prices are subject to change without 
notice. Please call for shipping charges. 
Prices in our retail store may be higher. 
Send for complete catalog. 



CALL TOLL FREE 
1 -800-343-8124 

• LOWEST POSSIBLE PRICES 

• BEST POSSIBLE WARRANTY 

• KNOWLEDGEABLE SALES STAFF 
TIMELY DELIVERY 

• SHOPPING CONVENIENCE 
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P.O. Box 1094 
480 King Street 
Littleton, MA 01460 



SINCE 1973 



IN MASSACHUSETTS CALL (617) 486-3193 



THS-B0 is a registered trademark of Tandy Corp. 
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Incentive to Upgrade 

Editor: 

1 have been a Fairly regular reader of THE 
RAINBOW since May of 1986, just a month 
or two after buying a 16K CoCo 2. I have 
since "graduated" to a CoCo 3 ( 1 28 K) and 
added a printer. Hopefully, I'll be adding a 
disk drive next month. (I've been ordering 
hardware and software from advertisers in 
THE rainbow, with excellent results!) 

I want to commend all of your staff for 
a most helpful magazine! 1 save each issue, 
as I want to be able to refer to articles and 
programs from time to time. For example, 
when I first started reading it, I could not 
use any program that required more than 
I6K standard BASIC (with cassette file 
storage only). So when I acquired my CoCo 
3, I had a large assortment of "brand new" 
programs to type in! This situation will 
repeat itself, obviously, when 1 have a disk 
drive! So, I don't gel discouraged when a 
program I especially like is beyond my 
present system capabilities — it just gives me 
added incentive to upgrade! Hopefully, 
other readers feel the same way. 

One thing that has caused me some con- 
cern is Radio Shack's dropping of some 
CoCo accessories the CCR-82 cassette 
recorder, the S/S cartridge and the RS-232 
Program Pak (for communications) come to 
mind. The RS-232 Pak is the easiest way (for 
me) to connect my Modemfone 100 to the 
CoCo — although I have made an adapter 
to connect it directly to the serial port. I have 
had lots of fun with the Sound /Speech 
cartridge in connection with Fred Scerbo's 
programs in "The Wishing Well." 1 hope that 
there will be enough such programs in the 
future to make Radio Shack consider restor- 
ing thai accessory to its catalogs. Perhaps if 
enough of us rainbow readers (and other 
CoCo users!) contacted Radio Shack about 
the various discontinued items. Radio 
Shack would at least consider making them 
once again available. 

Bill Swattz 
Washington, D.C. 

Controlling the Controller 

Editor; 

I recently purchased an appliance and 
light controller for the Color Computer 
from Radio Shack. Although it is by far the 
most versatile way I have found of control- 
ling many electrical devices, I am slightly 
disappointed in the lack of documentation, 
which significantly limits its potential uses. 
The instructions for the device describe only 
manual operation of the controller or 
manually programmed operation of the 
controller through its ROM cartridge pro- 
gram. 

Obviously, automatic operation of the 
controller by a user-developed program is 
also possible. Possible applications might 
include security systems, control systems, or 
use as a very inexpensive system clock. It 
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would also he convenient to know how to 
fully access the controller's memory so that 
programmed information can be printed out 
or automatically altered by the computer as 
the amount of daylight throughout the year 
changes. 

I have had no luck finding information 
describing the format lor direct communi- 
cation with the controller, nor have I found 
any information regarding the ROM car- 
tridge subroutines that can be accessed to 
carry out communications and operating 
functions with the controller. Does anyone 
know where to obtain this information? 
Perhaps an article on the subject would be 
of interest to other readers, as well. 

Gary L. Beatty 
Hookstown, PA 



4,600 of these controllers were 
given away at the recent Princeton 
RAINBOWfest. so it shouldn't be 
long before readers start submitting 
such articles to THE RAINBOW. 

How 'bout it, folks? 



REVIEWING REVIEWS 

Editor; 

I wish to thank Kerry Armstrong for his 
January 1 988 review of Kung-Fu Dude, but 
there is one modification that has since been 
made, which I want to be known. Kung-Fu 
Dude has been patched to now allow colors 
on the RGB monitor. This means that no 
longer will you get the black-and-white 
stripes on your Tandy CM-8 monitor. All 
new orders shipped will have this patch, but 
those who have the older version and want 
to upgrade can do so by sending their disk, 
a copy of their receipt and $5 (including 
shipping) to cover expenses, to Sundog 
Systems. Thank you. 

Glen R. Dahlgren 

President 

Sundog Systems 

ADOS-3 Version 1.00 

Editor: 

Recently I received reports of incompati- 
bilities between SpectroSystems' ADOS-3 
Version 1.00 and two games for the CoCo 
3: Pyramix (Dr. Preble's Programs) and The 
Wild West (Novasoft). In both cases, the 
programs would begin to load, then there 
would be banging of the drive head, then a 
message claiming "This is a backup copy" 
would appear. As I am quite proud of 
ADOS-3's virtual 100 percent compatibility 
record with commercial software, 1 was 
concerned about these reports. Upon inves- 
tigation, it developed that both games were 
protected by Sugar Software's Piratector 
copy protection scheme, and that some 
rather exotic disk operations performed by 
Piratector conflicted with ADOS-3's fix for 
the head-banging bug in Disk basic. 



Fortunately, a simple fix for "Piratected" 
programs is available that will allow them 
to be used under ADOS-3 Version 1.00. The 
fix consists of a line that must be added to 
the basic program that LDfiDMs the main file, 
to be placed immediately before the LOflDM 
statement. This line is as follows: 

IF PF_EK(£,HD809) = &H2Fl THEN 
POKE &HDB09,S,H20 

If the main file is normally LDHOrled directly, 
as with The Wild West, place a basic 
program on the disk consisting of the above 
line followed by the LQRDM of the main file, 
and run this program instead of using 
LOflOM. 

1 also suggest thai ADOS-3 users add 
another line to this BASIC loader program, 
consisting of the ADOS-3 command FAST, 
I have found that loading time of "Pira- 
tected" programs is cut by about 2/3 when 
the FAST (2 MHz) processor speed is used. 
(ADOS-3's disk I/O routines support 2 
MHz disk operations, which are normally 
unreliable under standard Disk BASIC.) 

I have passed along this information to 
the distributors of the two games mentioned 
above, and hope that they and other soft- 
ware vendors who are using Piratector will 
add the above fix to the commercial versions 
of their "Piratected" programs. {It will not 
affect compatibility with non-ADOS-3 
systems.) I also expect shortly to make a 
minor revision to ADOS-3 so that new 
copies designated as Version 1. 01 will be 
compatible with unmodified "Piratected" 
programs. 

Arthur J. Flexer 

Owner, SpectroSystems 

and author of A DOS 

HINTS AND TIPS 

Editor; 

One of your readers, Myrtis F Trexler, 
requested my assistance to add a feature to 
my program, Christmas List ("Making a 
Christmas Address List," December 1987, 
Page 66). 

I was asked how to make the left-hand 
margin greater for the purpose of printing 
envelopes. If Line 235 is added and Line 270 
changed, the printer will print at TAB (T) 
where T is the desired left-hand margin. 

235 INPUT'-HDW MANY SPACES FDR 
LEFT MARGIN";T 

270 PRINTB-2,PRINTtt-2 1 TflB(T); 
NS(A) :PRINT8-2,TAB(T) ;AS(A): 
PRINTfJ-2,TRB(T];CS(A);", "; 
S$(A):PRINT8-2,TAB(T);Z$(A); 
PRINTB-2 



This may be used for labels, envelopes or 
form letters with the appropriate value for 
T. For letters and/ or envelopes where there 
is no width restriction, the ZIP code may be 




AUTOTERM 

TURNS YOUR COLOR COMPUTER INTO THE 

WORLD'S 
SMARTEST TERMINAL! 

YOU'LL ALSO USE AUTOTERM FOR SIMPLE 
WORD PROCESSING & RECORD KEEPING 

EXTRA FEATURES ON COCO 3 DISK 

80 char, screen, 2400 baud thru serial port, . 

"" 95,000 to 475,000 character buffer ^ 

EASY COMMUNICATION + WORD PROCESSING + TOTAL AUTOMATION 



Full prompting and error checking. 
Step-by-step manual has examples. 
Scroll text backward and forward. No 
split words on screen or printout. 
Save, load, delete files while on line. 
Print, save all or any part of text. 300 
or 1200 baud. All 128 ASCII 
characters. Works with D.C. Hayes or 
any modem. Screen widths of 32, 40, 
42, 51, 64. 

DISK VERSION SUPPORTS RS232 
PAK, XMODEM and SPLIT SCREEN 
FOR PACKET RADIO. 



Please hire the mentally retarded. 
They are sincere, hard working and 

appreciative. Thanks! _. ,„ 

Phyllis. 



Editing is super simple with the 
cursor. Find strings instantly too! 
Insert printer control codes. Specify 
page size and margins. Switch 
quickly between word processing 
and intelligent terminal action. Create 
text, correct your typing errors; then 
connect to the other computer, 
upload your text or files, download 
information, file it, and sign-off; then 
edit the receive data, print it in an 
attractive format, and/or save it on 
file. Compatible with TELEWRITER. 

CASSETTE $29.95 
DISKETTE $39.95 

Add $3 shipping and handling 
MC/VISA/C.O.D. 



Advanced system of keystroke 
macros lets you automate any 
activity, such as dial via modem, 
sign-on, interact, sign-off, print, save. 
Perform entire session. Act as 
message taker. At start-up, disk 
version can automatically set 
parameters, dial, sign-on, interact, 
read/write disk, sign-off, etc. Timed 
execution lets AUTOTERM work 
while you sleep or play. No other 
computer can match your COCO's 
intelligence as a terminal, 

PXE Computing 

11 Vicksburg Lane 
Richardson, Texas 75080 

214/699-7273 



placed on the city, state line by changing 
Line 270 as follows; 

270 PR1NTH-2:PRINTH-2,TRB(T) ; 
NJ(R):PRINTB-2,TRB(T);fl$(R): 
PRINTB-2,TAB(T);C$;"\ ";S$;" 
";ZS:PRINTB-2;PRINTB-2 

These changes may be of interest to others. 

George F. Saunderson 

Houston. TX 

Calendar Modifications 

Editor: 

I am submitting some changes I have 
incorporated in William Holdorfs calendar 
program ("Appointment Calendar," Janu- 
ary 1988, Page 1 00), which may be of interest 
to oilier readers. The following lines are 
additions and /or changes I have made: 

900 POKE 359,57:P0KEG5314,85 

1355POKE2B2,0 

1395 P0KE2B2, 255 

1380 IF RN$="End" THEN 1430 

1390 IF RN$="5kip" THEN 1530 

1530 PQKE292,255:CL55 

2290PRINTa-2,CHRS(27); 

CHRS(1G);CHRS[2);CHR$(1G0); 

Line 2290 is changed for use with the DMP- 
105 printer. 

The first four screens can be edited to 
upper- and lowercase as desired for true 
lowercase printing. 

R.M. (Bob) Drosi 
Dawson Creek, British Columbia 



Pump Up the Volume 

Editor: 

I have modified Airplane ("CoCo's Dar- 
ing Flying Machine," January 1988, Page 
73) to make it more realistic. I thought that 
demonstrating just the graphics capabilities 
of our beloved CoCo is not enough, so I 
added sound effects in these lines: 

330 DRAW "AB"+P$:EXEC 43345 
350 DRFIUI "fll"+P$:EXEC 43345 
370 DRRUI "R2"+PS:EXEC 43345 
390 DRAW "R3"+PS:EXEC 43345 

Take note that deleting the 43345s in lines 
350, 370 and 390 will prevent the modifica- 
tion from working. You will get longer 
sounds if you do not specify what you are 
EXECuting. Another tip is to use a POKE 
140 , x before the four modified lines, where 
x is any value from 1 to 255. 

Werner Daniel Streidt 
Cairo. Egypt 

UV Light Protection 

Editor: 

Dr. Larry Preble should be commended 
for his most informative article on "the 
hazards of spending long hours at the 
computer" ("A Healthy Interface," Febru- 
ary 1988, Page 118). 1 want all your glasses- 
wearing readers to know of an extraordinar- 
ily effective aid in protecting one's eyes from 
computer-related fatigue. To a significant 
degree, such eye strain is caused by accu- 
mulated exposure to ultraviolet light emit- 



ted by television sets and monitors. Compu- 
ter users who wear glasses can have an 
invisible, permanent coaling sprayed on 
their lenses to deflect this ultraviolet radia- 
tion, thereby greatly reducing eye irritation 
and discomfort. This service is provided by 
your local optometrist or vision care center. 
The cost is $10 to 115 and requires only a 
few minutes' time for the entire process. 

David Mills 

(DA V1DM1LLS) 

Huntington, WV 

INFO PLEASE 

Editor: 

I have been trying to contact Hemphill 
Electronics, but have had no luck. Have they 
moved, gone out of business, or what? 

Kyle Hagaward 
Los Angeles, CA 

Hemphill Electronics new address 
is 514 Paseo Tesoro, Walnut, CA 
91789,(717)598-7799. 

KUDOS 

Editor: 

I'd like to take this opportunity to rave 
about one of your article writers, Nancy 
Ewart. I am sure I, like many others, got 
more from her "Stalking the Fire-Breathing 
Dragon" OS-9 dissertation (January 1988, 
Page 156) than from any other source. An 
example is her explanation of creating a 40- 
track, double-sided system disk using 
DSaue. God only knows the hours I've spent 
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with the manuals, other articles and OS-9 
bibles trying to accomplish what she ex- 
plained in one paragraph plus the clarity of 
her printed command: dsave(space)- 
b(space)^d0{space)^dl(space) 
!(space)shel 1. We need more articles from 
this very proficient writer who knows how 
to take the fog-level out of difficult subjects. 
Tandy's writers and most of the other 
experts writing tech-info should take lessons 
from Nancy. Let us have more articles from 
this lady who gets stars from me on her 
report card! 

Michael Bernards 
Sarasota, FL 

Monitor Madness 

Editor: 

1 just want to thank you guys. 1 was about 
to buy a monitor for my new CoCo 3 when 
(he model number sparked my memory. 
Turningtoaback issue, 1 discovered that the 
model I was about to buy, the Motorola 
8CM562, wouldn't work. If it hadn't been 
for your magazine and one line in an article 
on monitors, I would have made a $300 
mistake. Again, thanks. 

Paul R. Broshear 

(GROUCHY) 

San Angela, TX 



PEN PALS 



• I'm 17 years old. 1 have a CoCo 3 and a 
disk drive, printer, cassette recorder and 
modem. I'm looking for pen pals, whatever 
their system, age or country. 

Ana M. Rodriguez 

D UF-17 Torremolinos 

Guaynabo, PR 00657 

• My address has changed, but I still want 
pen pals! 

Norman L. Morris, Jr. 

7743 S. Paulina 

Chicago, IL 60620 

• I would like to have some pen pals. 1 am 
1 6 years old and own a 64K CoCo, a printer 
and a disk drive. 

Bosnian Andreas 

Hoge Burg 52 

9371 Dendebelie 

Lebbeke 

Belgium 

• 1 am a late 40"s single mother who would 
enjoy other single pen pals of my age 
bracket. 1 own a CoCo 2 and a 512K CoCo 
3 with monitor and cassette, two disk drives, 
a CGP 115 and 220, a DMP-130 and a 
modem. I also speak French. 

Nicole Pou Hot Coors 

5059 Chauntecleer Ct. 

Mobile, A L 36693 

• I live in a small town about 40 miles north 
of Atlanta. 1 have a CoCo 3, FD-501 disk 
drive, CM-8 color monitor, DMP-106 
printer, CCR-81 recorder and deluxe joy- 
sticks. I wish to correspond with all Co- 
Coers. 1 have had my CoCo for only four 
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months and am just getting to know it. I 
would appreciate any pointers anyone might 
have in respect to graphics and animation. 
I will respond to any and all letters. 

Mike Trace v 

1220 Sherry Drive 

Alpharetta, GA 30201 

• I am a young 38-year-old stained glass 
artist and game, Adventure and utility 
fanatic. I have a CoCo 2, Epson RX-80 
printer, two drives and Multi-Pak, etc. I'll 
answer everyone and would especially like 
people who can talk to my printer as I 
cannot. Write soon. 

Kim Sinrod 

16 Scranton Ave. 

Lynbrook, NY 11563 

• I am 34 years old and am looking for pen 
pals from the U.S.A. and around the world. 
I have a Color Computer 2 with 64K, and 
a Multi-Pak Interface. I also have two disk 
drives, a cassette recorder and a DMP-430 
printer. 

Paul Nelson Do/liver 

115 Peach St. 

Snyder. TX 79549 

• I am 19 years old and have a 128K. CoCo 
3, a 64K CoCo 2, disk drive, Multi-Pak, 
DM P- 1 05 printer and a DCM-3 modem. I 
am looking for pen pals from the United 
States and Canada. 

J.M. Whvnot 

P.O. Box 50 

Port Med way, Nova Scotia 

Canada BOJ 2T0 

• I am 18 years old and would like to pen 
pal with anyone in the world. 1 have a CoCo 
2. FD 501 drive. CCR-81 recorder, DMP- 
105 printer, and I am going to buy a CoCo 
3 in the near future. 

Tito Voysest 

Malecon Cisneros 124 DPTQ 902 

Lima, Peru 



BULLETIN BOARD SYSTEMS 



• There is a new BBS in southeastern 
Kentucky. It includes Xmodem download- 
ing and uploading, a peek and pokes section, 
online games and more. Online from 10 p.m. 
to 8 a.m. Call (606) 439-1853. 

Kenny Napier 

P.O.' Box 387 

Bulan, KY 41722 

• Call the Grand Rapids BBS Wyoming 
Pitbb, {616} 538-8229. The BBS operates 
under the OS-9 and UNIX operating sys- 
tems on a CoCo 2 with 5I2K RAM. 

Robert M. Worth, Jr. 

1726 Millbank S.E. 

Grand Rapids, Ml 49508 

• You are cordially invited to call The 
Highlandlown International Airport BBS at 
(301) 675-7626 (300/ 1200-7/ E/ 1). Online 
and open for incoming flights since June 1, 
1986, running highly modified Colorama 
BBS software. Instant access after filling out 



the new-user application. A donation is 
required for higher access. 

Tim Krahling, SysOp 
2930 E. Fayette St. 

Baltimore. MD 21224 



• The Franklin County Data Center has 
changed its online operating hours. We 
operate from 10 p.m. to 7 a.m., seven days 
a week. Call (703) 365-2018 at 300 baud, 7- 
E-l or8-N-l. 

Ricky Sutphin 

Ri.'l. Box 20 

Henry. VA 24102 

• There's a new CoCo BBS in Connecticut, 
"Strictly CoCo," running at 300/ 1200 baud, 
operating 24 hours a day, seven days a week. 
Running on a CoCo 2 with four disk drives 
under Co BBS with Xmodem upload/ down- 
load file section and expanding message 
bases. Call (203) 378-1572 with 8/N/1. 

Tom Cowley (SysOp) 

445 Stonyhrook Road 

Stratford. CT 06497 

• Omega BBS of Cincinnati is now online 
with TuBBS 2.4 software, running on a 
CoCo 3. We support the CoCo with down- 
loads, online games, multiple message bases 
and 24-hour operation. Call(5 S3) 671-2049, 
300/ 1200 baud, 8/N/ 1 protocol. 

Thomas Alt um 

1746 Continental 

Shatconville, OH 45246 

• I operate a bulletin board for the Cana- 
dian Forces Base (CFB) Summerside Com- 
puter Club, 

The C.F.B. Summerside BBS is online at 
(902) 436-2281; ask for Local 583. The 
system runs on the club's Model III with 
multiple drives. The system features Xmo- 
dem up/ downloads for all computers, five 
messages bases, information, and soon, 
online games. Parameters are 8-N-l, 300 
baud, and the system is up 24 hours, seven 
days a week. There is no charge, and new 
users instantly receive access. SysOps are 
John Cunningham and Philippe Comeau, 
John Cunningham 
10 Glover 's Shore Road 
Summerside, P. E. I. , 
Canada C1N4G4 



the rainbow welcomes letters to the 
editor. Mail should be addressed to: 
Letters to Rainbow, The Falsoft Build- 
ing, P.O. Box 385, Prospect, KY 40059. 
Letters should include the writer's full 
name and address. Letters may he edited 
for purposes of clarity or to conserve 
space. 

Letters to the editor may also be sent 
to us through our Delphi CoCo SIC 
From the CoCo SIG> prompt, type RAI 
to take you into the Rainbow Magazine 
Services area of the SIC At the RAIN- 
BO W> prompt, type LET to reach the 
LETTERS> prompt and then select 
Letters for Publication. Be sure to in- 
clude your complete name and address. 




^Word , 
Power 3.1 

(The Ultimate Word Processor for the CoCo 3) 




Power Unleashed! Unlike other word- processors, Word Power 
3.1 is written from scratch for the CoCo 3. It bridges the gap between 
"what is" and" what should be" in word- processors No other word 
processor offers such a wide array of features that are so easy to 
learn and use. 

DISPLAY 

The 80- column display with true lowercase lets you view the full 
width of a standard page. All prompts are displayed in plain 
English in neat colored windows (see display above). The 
current column number, line number, page number and percentage 
of free memory is displayed on the screen at all times The program 
even displays the bottom margin perforation so you know where 
one page ends and the other begins You can also change foreground/ 
background color of screen and select menu and carriage return 
colors to suit your needs' Carriage returns can be visible or invisible 
Word Power 3.1 runs at double clock speed and can be used with 
RGB/ composite/ monochrome monitors as well as TV. 

AVAILABLE MEMORY 

No other wotd pmcessor gives you so much memory. Word Power 
3.1 gives you over 72 K on a 128K machine and over450K on a 
51 2 K machine to store text 

EDITING FEATURES 
Wotd Power 3.1 has one of the most powerful and user- friendly 
full- screen editors with word- wrap All you do is type Word 
Power 3.1 takes care of the text arrangement. It even has a built-in 
Auto- Save feature which saves the current text to disk at regular 
intervals; so you know that your latest version is saved to disk. Here 
are some of the impressive editing features of Word Power 3,1: 

Insert/Overstrike Mode (Cursor style changes to indicate mode); 
OOPS recall during delete; Type- ahead buffer for fast typers; Key- 
repeat (adjustable) and Key- click; Four-way cursor control and 
scrolling; Cursor to beginning of text, end of text, beginning of line, 
end of line, top/bottom of screen, next/ previous word; Page up/ 
down; Delete character, previous/ next word, beginning/ end of 
line, complete line, text before and after cursor; Locate/ Replace 
with wild- card search with auto/ manual replace; Block Mark, 
Unmark, Copy, Move and Delete; Line Positioning (Left/Center/ 
Right); Set/ Reset 1 20 programmable tab stops; Word count. Define 
left, right, top and bottom margins and page length. You can also 
highlight text (underline— with on-screen underlining, bold, 
italics, superscripts, etc). Word Power 3.1 even has a HELP screen 
which can be accessed any time during edit. 



MAIL- MERGE 

Ever try mailing out the same letter to 50 different people ot sending 
out several resumes? Could be quite a chore. Not with Word Power 
3.1. Using this feature, you can type a letter, follow it with a list of 
addresses and have Word Power 3.1 print out personalized lettets 
It' s that easy! 

SAVING/LOADING TEXT 
Word Power 3.1 creates ASCII format files which are compatible 
with almost all terminal, spell- checking and other word- processing 
programs hallows you to load, save, append and kill files and also to 
create and edit Basic, Pascal, C and Assembly files You can select files 
by simply cursoring through the disk directory. Supports double- 
sided drives and various step rates 

PRINTING 
Word Power 3.1 drives almost any printer (DMP series, EPSON, 
GEMINI, OKIDATA, etc). Allows print options such as baud rates, 
line spacing, page pause, partial print, page numbers, page number 
placement, linefeed option, multi-line headers/ footers, right 
justification and number of copies (see display above). The values 
for these parameters and the margins can be changed anytime in the 
text by embedding Printer Option Codes Word Power 3.1 has the 
WHAT YOU SEE IS WHAT YOU GET feature which allows you 
to preview the text on the scteen as it will appear in print. You can see 
margins, page breaks, justification and more 

SPELLING CHECKER 

Word Power 3.1 comes with a 50,000 word spelling checker/ 
dictionary which finds and corrects mistakes within your text. You 
can add words to or delete from the dictionary or create a dictionary 
of your own. 

PUNCTUATION CHECKER 
This checker will proofread your text for punctuation errors such 
as capitalization, spaces after periods/ commas, double words and 
much more It's the perfect addition to any word processot 

DOCUMENTATION 
Writing with Word Power 3.1 is a breeze Word Power 3.1 comes 
with a well- written, easy- to- comprehend instruction manual which 
will lead you step- by- step through the program. 

Word Power3.1 comes on an UNPROTECTED disk and is compatible 
with RS DOS 1.0/1.1 and ADOS Only $79.95. 



(Word Power 3 owners can get the 3.1 version by sending proof of 
purchase and $10.00 to cover the cost of shipping and the manual.) 

MICROCOM SOFTWARE 
RO. Box 214 



MmmMMw Fairport, NY 14450 

Phone (716) 223-1477 
To Place Credit Card Orders Call Toll Free 1-800-654-5244 9 am-9 PM EST7 daysa week 

NY, Canada, Foreign Orders, information, Technical Advice and Order Status call 1-716-223-1477 

AH orders within Continental US shipped hv UPS 2 nd Day Air at no extra charge. 

VISA, MC AMEX. Check, MO. No COD* Please add $3.00 SScH (USA &. Canada), other countries $5.00 S&tH. NYS tesidenrs please add sales tax. 
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How To Read Rainbow 



Please note that all the basic program listings in 
the RAINBOW are formatted for a 32-character 
screen —so they show up just as they do or your CoCo 
screen. One easy way to check on the accuracy of your 
typing is to compare what character "goes under" what, 
if the characters match — and your line endings come 
o ut the same — you have a prelty good way of knowi ng 
that your typing is accurate. 

We also have "key boxes" to show you the minimum 
system a program needs. But, efo read the text before 
you start typing. 

Finally, the little disk and/or cassette symbols on the 
table of contents and at the beginning of articles 
indicate that the program is available through our 

RAINBOWON DISK OrRAINBOWON TAPE service. 

An order form for these services is on the insert card 
bound in the magazine. 



What's A CoCo? 



CoCo is an affectionate name that was first given to 
the Tandy Color Computer by its many fans, users and 
owners. 

However, when we use the term CoCo, we refer to 
both the Tandy Color Computer and the TDP Syslem- 
100 Computer. (While many TDP-100s are still in 
service, the TDP Electronics division of Tandy no longer 
markets Ihe CoCo look-alike.] It is easier than using 
both of the "given" names throughout the rainbow. 

In most cases, when a specific computer is men- 
tioned, the application is for that specific computer. 
However, since the TDP System-100 and Tandy Color 
are, for all purposes, the same computer in a different 
case, these terms are almost always interchangeable. 



Rainbow Check Plus 



t^f- 



The small box accompanying a program listing in 
the rainbow is a "check sum" system, which is 
designed to help you type in programs accurately. 

Rainbow Check PLUS counts the number and values 
of characters you type in. You can then compare the 
number you get to those printed in THE RAINBOW. 
On longer programs, some benchmark lines are given. 
When you reach the end of one of those I ines with your 
typing, simply check to see if the numbers match. 

To use Rainbow Check PLUS, type in the program 
and saveit for lateruse, then type in the command SUN 
and press enter. Once the program has run. type NEW 



and press enter to remove it from the area where the 
program you're typing in will go. 

Now, while keying in a listing from the rainbow, 
whenever you press the down arrow key, your CoCo 
gives the check sum based on the length and content 
of the program in memory, This is to check against the 
numbers printed in the rainbow. If your number is 
different, check (he listing carefully to be sureyou typed 
in the correct basic program code. For more details 
on this helpful utility, refer to H. Allen Curtis' article on 
Page 21 of the February 1984 rainbow. 

Since Rainbow Check PLUS counts spaces and 
punctuation, be sure to type in the listing exactly the 
way it's given in the magazine, 

10 CLS:X=2SS*PEEK(3S)+178 

20 CLEAR 25.X-1 

30 X=256*PEEK [35J+17B 

40 EDR Z=X TD X+77 

S0 READ Y:W=U+V:PRINT Z,Y;W 

G0 POKE Z,Y:NEXT 

70 IFU=79BSTHEN80EL5EPRINT 

"DATA ERROR":STDP 
B0 EXEC X:END 

90 DRTR 1B2, 1, 10E, 167, 110, 60, 134 
100 DATA 126, 1B3, 1, 106, 190, 1, 107 
110 DATA 17S, 140, 50, 48, 140, 4, 191 
120 DATA 1, 107, 57, 129, 10, 3B, 38 
130 DRTR 52, 22, 79, 15B, 25, 230, 129 
140 DATA 39, 12, 171, 128, 171, 12B 
150 DATA 230, 132, 3B, 250, 4B, 1, 32 
1G0 DATA 218, 1B3, 2, 222, 4B, 140, 14 
170 DATA 159, 16S, 1S6, 132, 28, 254 
1B0 DATA 1B9, 173, 138, 53, 22, 126, 
190 DATR0, 135, 255, 134, 40, 55 
200 DATA 51, 52, 41, 



OS-9 and RAINBOW ON DISK 



The OS-9 side of RAINBOW ON DISK contains two 
directories; CMDS and SOURCE. It also contains a file, 
read. me. first, which explains the division of the 
two directories. The CUDS directory contains executa- 
ble programs and the source directory contains the 
ASCII source code for these programs, basicos 
programs will only be offered in source form so they will 
only be found in the SOURCE directory, 

OS-9 is a very powerful operating system. Because 
of this, it is not easy to learn at first. However, while we 
can give specific instructions tor using the OS-9 
programs, you will find that the OS-9 programs will be 
of little use unless you are familiar with the operating 
system. For this reason, if you haven't "learned" OS-9 
or are not comfortable with it, we suggest you read The 
Complete Rainbow Guide to OS-9 by Dale Puckett and 
Peter Dibble. 

The following is not intended as a course in OS-9. It 
merely states how to get the OS-9 programs from 
rainbow on disk to your OS-9 system disk. Use 
the procedures appropriate for your system. Before 



doing so, however, boot the OS-9 operating system 
according to the documentation from Radio Shack. 

1) Type load dir list copy and press ENTER. 

2} If you have only one disk drive, remove the OS-9 
system disk from Drive and replace it with Ihe OS- 
9 side of rainbow on disk. Then type chd/d0 
and press enter. If you have two disk drives, leave 
the sytem master in Drive and put the rainbow 
on disk in Drive 1 . Then type chd'di and press 

ENTER, 

3} List the read . me . f i rs t file to the screen by typing 
list rsad.me.first and pressing enter. 

4) Entering di r will give you a directory of the OS-9 
side of rainbow on disk. To see what programs 
are in the CMD5 directory, enter dir cmds. Follow 
a similar method to see what source files are in the 
SOURCE directory. 

5} When you find a program you want to use, copy it 
to the CMDS directory on your system disk with one 
of the following commands; 

One-drive system: copy /d&'cmds/ filename /d%-> 
cmds/ filename -a 

The system will prompt you to alternately place the 
source disk (rainbow on disk) or the destination 
disk [system disk) in Drive 0. 
Two-drive system: copy ^d 1 -'cmds-' filename sd®/ 
cmds/ filename 

Once you have copied the program, you execute it 
from your system master by placing that disk in Drive 
and entering the name of the file. 



The Rainbow Seal 



RAINBOW 

CERTiFfCATJOH 



The Rainbow Certification Seal is our way of helping 
you, the consumer. The purpose of the Seal is to certify 
to you that any product that carries the Seal has actually 
been seen by us, that it does, indeed, exist and that we 
have a sample copy here at the rainbow. 

Manufacturers of products — hardware, software and 
firmware — are encouraged by us to submit their prod- 
ucts to the rainbow for certification. We ascertain 
that their products are, in actuality, what they purport 
to be and, upon such determination, award a Seal. 

The Seal, however, is not a "guarantee of satisfac- 
tion." The certification process is different from the 
review process. You are encouraged to read our reviews 
to determine whether the product is right for your 
needs. 

There is absolutely no relationship between advertis- 
ing in the rainbow and the certification process. 
Certification is open and available to any product per- 
taining to CoCo. A Seal will be awarded to any com- 
mercial product, regardless of whether the firm adver- 
tises or not. 

We will appreciate knowing of instances of violation 
of Sea! use. 
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COCO 3 UTILITIES GALORE 

(All utilities support 40/80 columns for CoCo 3) 
(CoCo2 versions are available for most utilities) 



SUPER TAPE/DISK TRANSFER 

• Disk- to-Disk Copy (1-3 passes) • Tape-to- Disk Copy • Tape- lo- Disk Automatic Relocate • Disk- 
to- Tape Copy • Tape- to- Tape Copy 

Copies Basic/ML programs and DATA files. CoCo 1, 2 & 3. 32 K Disk System (Disk to Disk Copy requires 
64 K). Disk Only $24.95 



0S9 LEVEL II RAMDISK 

Lightning Fast Ramdisk with Auto Formatting A most for any OS9 Level II User. Reg. 512KS29.95. (Only 
S14.95 with the purchase of 51 2 K Upgrade & Ramdisk!!). 



HI-RES JOYSTICK SOFTWARE 

Wish you could use the hi-res joystick interface from Basic? You can now. This program will let you access 
640 x 640 pixels from your joystick for extra precision CoCo 3 Disk SI 4.95 



COCO NEWSROOM 

Now available for the CoCo III! You can design your own newspaper with Banner HearJlines/6 articles using 
sophisticated Graphics Fonts and Fill Patterns Comes with22 fonts&50 pictures! Over 140 K of code. Oisk 
only S49.B5 



MAILLIST PRO 

The ultimate mailing list program Allows you tc add, edit, view, dele te. change, sort(byzipcodeorname) and 
print labels Its indispensible! Disk Only SI 9.95 ( CoCo 2 version included) 



DISK LABEL MAKER 

Allows you to design professional disk labels! Allows elongated, normal and condensed format for text 
double- strike border creation and multiple- label printing Its a MUST for any user with a disk drive Disk 
Only SI 9.95. Supports DMP 105/1 10/1 20/130/430, GEMINI. STAR, EPSON and compatibles. (CoCo 2 
version included) 



SCREEN DUMP 

32, 40, 80 column text dump, PMODE 4 Graphics Dump Single Keystroke Operation allows 
you to take snapshots o( screens even when programs are running! Works on DMP's, Epson 
and Gemini CoCo 1,2 and 3. Disk Only $24.95 



HOME BILL MANAGER 

Let the CoCo keep track of your bills Allows you to enter bills under various categories and 
reminds you when they are due Disk Only $1 9.95 



COMPUTERIZED CHECKBOOK 

Why bother with balancing your checkbook? Let the CoCo do it for you! Al lows you to add view, search edit 
change delete and printout (in a table or individual entry format) checkbook entries Updates balance after 
each entry. Allows files for checking saving and other accounts. Disk Only $19.95 (CoCo 2 version 
included) 



BOWLING SCORE KEEPER 

An excellent utility lo keep Irack of your howling scores Allows you to save scores under individuals or 
teams You can edit, change delete and compare scores A must tor anyone who wants to keep track of his or 
her bowling performance Disk SI 9.95 (CoCo 2 version included). 



VCR TAPE ORGANIZER 

Organize your videocassett.es with this program! Allows you to index cassettes by title, rating, type play 
time and comments. Also allows you to sort titles alphabetically and view/ print selected tapes If you own a 

VCR. this program is a must Disk Only SI9. 95 (CoCo2 version included). 



CALENDAR MAKER *Ht 

Generate monthly calendars on your printer (or any year in the 20th century. Disk Only. ' / %&f 


COCO UTIL II 

(Latest Version): Transfer CoCo Disk files to IBM 
compatible computer. Transfer MS-DOS files to 

CoCo Reg 2- Drive IBM compatible S3 9.9 5 




AD0S3 

Advanced Disk Operating System for CoCo 3, 
S34.95 ADDS $27.95 


RGB PATCH 

Displays most games in color on RGB monitors 
For CoCo 3 Disk $24,95 


SPIT N IMAGE 

Makes a BACKUP of ANY disk $32,95 



OS 9 PRODUCTS 



OS 9 LEVEL II 
OPERATING SYSTEM 

Supports 51 2 K RAM dual speed, multi- tasking, 
multiple windows and more! Comes with disk and 
complete documentation Only $89.95 



MULTI- VUE 

User friendly graphics interface with multiple 
"window" applications for Level II. Only $54,95 



WIZ 

OS9 Level II Terminal Package with 300-19200 
baud rate and windowing capability. Requires 51 2K 
andRS-232 Pack Only $79.95 



SCREEN STAR 

Best OS9 Word Processor. Implements WordStar 
(R) editing capabilities Even has a built in spelling 
checker. Use with OS-9 Text Formater to get 
beautiful printouts ForOS9 Level 1 and2. Disk Only 
$49.95. OS-9 Tex! Formatter: Printout beautllul docu- 
ments from any ASGIMlle. Dnly$34. 95. Both Screen Slar 
and OS-9 Ted Formatter; S74.95 



DATA MASTER 

Excellent database for 0S9. Features include: 
windows pull down menus sorting etc. Requires 
0S9 Level II&512K Only $64.95 



PC-Xfer UTILITIES 

Programs to format and transfer files to/from MS- 
DOS diskettes on CoCo Under OS9 Level 1 or 2. 
Requires SDISK or SDISK3. Only $44.95 



SDISK 3 

Standard disk drive module replacement allows full 
use of 40/80 track double sided drives Reg 0S9 
Level II Only 529.95 



SDISK 

Same as S DISK 3 except for OS9 Level f. Only 
(29.96 



0S9 LEVEL II RAMDISK 



$29.95 



BOOKS 

Inside 0S9 Level II: S39.95 

Rainbow Guide Td GS9 Level II: $19.95 

Rainbow Guide To 0S9 Level II Disk: $19.95 

OS9 is a trademark of Microware and Motorola, 

Inc. 
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MICROCOM SOFTWARE 

P.O. Box214 
Fairport, N.Y. 14450 
Phone (716) 223-1477 
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All ordersS50 and above shipped by DPS2nd Day Air within Continental US al no extra charo 
CODs We accept Visa MC. Amex, Check or MO. Please add 33.00 S&H 
(USA/Canada). Other countries $5.00 S&H NYS residents please add sales tax 

To Place Credit Card OrderB, Call Toll Free 1-800-654-5244 pm esi 

NY, Canada, Foreign Orders, Information, Technical Advice and Order Status call 1-716-223-1477 
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Seasons 
of Change 



There have been some pretty big changes taking place around here 
in the last month and I thought you would like to know something 
about them. 

First of all, we staged Falsoft's first "retirement" party ever when General 
Manager Pat Hirsch — who was the company's first paid employee (she 
got paid even before I did) — was honored at a luncheon the middle of 
February. Pat's last day was February 15. 

Bonnie Frowenfeld. who has been assistant general manager for 
fulfillment services, has moved into Pat's office. Bonnie brings a wealth 
of experience to the position and I know you will all join me in wishing 
her well at her new post. 

I know that many of you who have met Pat at RAIN BOW fests will also 
join me in wishing her the best in her "retirement." As an old lady of 45 
(it has always been a great source of pleasure to me that she is six full 
months older than I am), Pat intends to spend more time traveling with 
her husband to pickle patches around the world and sharpening up her 
tennis game. 

Some explanation is in order for the first statement; a clarification for 
the second. 

"Mr. Pat," Ken Hirsch, is the head honcho at Paramount Foods here 
in Louisville, a firm that makes and sells pickles, relishes and other stuff 
like that. Additionally, Ken (known, obviously, as "Pickle" to many of his 
friends) is an Important Person in the International Pickle Packer's 
Association and needs to make numerous trips for them as well as his own 
business. Pat's duties at Falsofl had limited her ability to accompany him. 
Now they won't. (Incidentally, Pat is not known as "Mrs. Pickle." Their 
eldest daughter, Lisa, however, is known as "Little Pickle.") 
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500 

POKEs, 

PEEKS, 

EXECs 

FOR THE TRS-80 COCO 

NEVER BEFORE has this infor- 
mation of vital significance to a 
programmer been so readily 
available to everyone. This book 
will help you 'GET UNDERMEATH 
THE COVER of the Color Com- 
puter and develop your own MI- 
QUALITY Basic and ML pro- 
grams. 50 WHY WAIT?? 
This 80-page book includes 
POKEs, FEEKs and EXECs to: 

* Autostart your basic programs 

* Disable Color Basic/ECB/Dlsk 
Basic commands like LIST 
LLIST, POKE, EXEC, CSAVE(M), 
DEL, EDIT, TROM. TROFF, 
PCLEAR, DLOAD, REHUM, PRINT 
USINQ. D1R, KILL. SAVE, LOAD, 
MEROE, RENAME, DSK1MI. 
BACKUP, DSKI$, and DSKO$ 

* Disable BREAK KEY. CLEAR KEY 
and RESET BUTTOM. 

* Generate a Repeat-key. 

+ Transfer ROMFAKS to tape (for 
64K only). 

* Set 23 different 
QRAPHIC/SEMIQRAPH1C modes 

* Merge two Basic programs. 

* ACID MUCH MUCH HOREJII 

COMMANDS COMPATIBLE WITH 
1 6 K/32K/64K/ COLOR BASIC/ ECB/ DISK 
BASIC SYSTEMS and CoCo 1, 2, & 3. 

ONLY $16.95 



SUPPLEMENT to 

500 POKES, 
PEEKS N EXECS 

ONLY$9.95 
t U U additional Pokes, Peeks ' n Execs to 
give you MORE PROGRAMMING POWER 
Includes commands for 

• Rnmp»k Transfer to disk 

• PAINT with B5000 styles! 

• Use ol 40 track singly double sided drives with variable 
step-rates 

• High-Speed Cassette Operation 

• Telewriter 64 \ Ert!asm+" and CoCo MW 
Enhancements 

• Graphics Dump [Im BMP printers) & Text Screen Dump 

• AND MUCH MUCH MORE! 

• 500 POKES. PEEKS N EXECS is a prerequisite 



300 POKES 
PEEKS'N EXECS 

FOR THE COCO III 

Get more POWER for your CoCo III. Includes 
commands for 

• 40/80 Column Screen Tear! Hump / 3Qq 

• Save Ten 1/ Graphics Screens lo Disk fiij,f?fls 

• Command/Function Disables 

• Enhancements lor CoCo 3 Basic 

• I2BK/512K flam Tesl Program 

• IIPHINT Character Mnditisr 

• AND MANY MORE COMMANDS OtJLV$19,95 




^SP* "MUST" BOOKS 

UNRAVELLED SERIES: These books provide a 
complete annotated listing of the 
BASIC/ECB and DISK ROMs. 

EXTENDED COLOR BASIC UNRAVELLED: S39 95 

DISK BASIC UNRAVELLED: S19.95 

BOTH UNRAVELLED ROOKS: $49.95 j^. 

SUPEfl ECB [CoCn3] UNRAVELLED: S24.95 J&Sjfc 

ALL 3 UNRAVELLED BOOKS: S59.95 ^W^ 

G0C03 SERVICE MANUALS39.95 

COCO 2 SERVICE MANUAL: $29.95 

INSIDE DS9 LEVEL M S39.95 

RAINBOW GUIDE TO 039 LEVEL II ON COCO 3: $19.95 

RAINBOW GUIDE TO 0S9 II DISK: $19.95 

INSIDE DS9 LEVEL II DISK: S20.D0 

COCO 3 SECRETS REVEALED: SI9.95 

ASSEMBLY LANGUAGE PROGRAMMING*: SI 11.01) 

ADDENDUM FOR C0C0 3:S12.00 
UTILITY ROUTINES VOL 1 BOOK: $19.95 
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GAM ES( Disk Only) ( CoCo 1 
except where mentioned) 
WILD WEST (CoCo 3 Only) $24.95 
VEGAS SLOTS (CoCo 3 Only) $29.95 
VEGAS GAME PACK: $24.95 
FLIGHT 16: S34.9S 
IN QUEST OF STAR LORD 
(Animated Graphics Adventure 
CoCo 3): $34.95 

WHITE FIRE OF ETERNITY: $19.95 
PYRAMIXfCuhix for CoCo 3): $24.95 
P-51 MUSTANG SIMULATION: $34.95 
WORLDS OF FLIGHT: $34.95 
KUNGFU DUDE: $24.95 




APPROACH CONTROL SIMULATION: $34.95 

TREASURY PACK#1: Lunar Rover Patrol, 

Cubix, Declathon, Qix, Keys 

of Wizard, Module Man, 

Pengon, Space Wrek and 

Roller Controller all in one package! 

Only $29.95 

TREASURY PACK #2: Lancer, Ms. w 

Gobbler, Froggie, Madness %$? 

and Minotaur, Ice Castles, 

Galagon, Devious and Syzygy all in one 

package! Only $29.95 




COCO 
GRAPHICS DESIGNER 




Greeting Cards I 

Signs 

Banners 



The CoCo Graphics Designer allows you 
to create beautifully designed Greeting 
Cards, Signs and Banners for holidays, 
birthdays, parties, anniversaries and other 
occasions Comes with a library of pre- 
drawn pictures Also includes utilities 
which allow you to create your own 
character sets, borders and graphic 
pictures. Requires a TRS-80 COLOR 
COMPUTER!, II OR III OR TDP-100 with 
a MINIMUM 0F32K, ONE DISK DRIVE 
and a PRINTER, compatible with DISK 
BASIC 1.0/1.1, ADOS 1.0/1.1 AND JDOS. 
Supports the following printers: DMP 
100/105/110/130/430, CGP220, 
EPSON RX/FX GEMINI 10X SG-10, 
NX-10& OKIDATA 

DISK ONLY $29.95 

PICTURE DISK #1: 100 more pictures for 
CGD: $14.95 

FONT DISK #1: 10 extra fonts! $19.95 
COLORED PAPER PACKS $24.95 

COCO MAX III (with hi- res interface): $79.95 

COCO MAX II: Disk $77,95 Tape $67.95 

MAX PATCH An excellent software patch to run 

COCO MAX II on COCO III. Reo, RS Hi- res 

Joystick Interface No chip replacements or 

soldering Disk only $24.95 

BOTH MAX PATCH & HI-RES INTERFACE: 

$34.95 

COLOR MAX3 DELUXE: $69,95 

COLOR MAX 3: $59.95 

Telewriter-64: Best Word Processor for CoCo 1 & 
2 (Gas) $47.95 (Disk) $57.95 
TW-80: 80 Column Displays more features for 
TW-64. CoCo 3 Disk $39.95 
TELE FORM: Mail Merge & Form Letters for TW- 
64. $19.95 

Alftotirm: Superb Terminal Program Works with 
any modem! (Cas) $29.95 (Disk) $39.95 

Pro Color File * Enhanced*: Multi-feature 

Database $59.95 Sidewise: $24.95 
Pro-Color Dir: $24.95 
EDT/ASM 64 D: Best Disk Based Editor- 
Assembler forCoCo.$59.95 (Specify CoCo 1, 2 or 3) 
THE SOURCE: Best Disassembler for CoCo$34,95 
THE SOURCE Ml : $49.95 
C BASIC: Most powerful Basic Program Complier 
$149.95 (Specify CoCof. 2 or 3) 



MJP 



MICROCOM SOFTWARE 

P.O. Box 21 4 

Fairport, N.Y. 14450 

Phone (71 6) 223-1477 



All ordersSSO and above shipped by :: PS 2 n : Bay Air within Continenlal LIS at no intra charge Mo 
CODs We accept Visa MC, Amex. Check or MO. Please add$3.00 S&H( USA/Canada). 
Other countries S5.Q0 S&H. NYS residents please add sales tax 
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To Place Credit Card Orders Call Toll Free 1-800-654-5244 9 am-9 pm est? daysaweek 

NY, Canada, Foreign Orders, Information Technical Advice and Order Status call 1-716-223-1477 



My second comment, concerning 
tennis, is probably untrue. If Pal gels 
much better at tennis than she is, she 
may be banned from local courts. Her 
serve broke my secretary's arm one day. 
Bob Albrecht, the famous writer, once 
challenged her to a match until he found 
out how good she was. He backed out. 



Another big change here sees a sort 
of triple shift, brought about by Jim 
Reed's decision to "explore new hori- 
zons" in the publishing world. 

Jim was the first managing editor of 
RAINBOW and guided it through its 
important stages of growth and devel- 
opment. His depth of knowledge of 
magazines and publications was a vital 
element in its metamorphosis from a 
"newsletter" to a slick magazine. 

Jim moved to other duties about six 
months ago, as executive editor for the 
company. Jutia Kapfhammer then 
moved into the editorial coordinator's 
job and became managing editor of 
RAINBOW. 

With Jim's departure, Jutta will 



devote full time to her managing edi- 
tor's position. John Crawley, who has 
been with Falsoft for almost five years, 
becomes director of editorial services. 
For those of you who wonder, John will 
also continue as editor of ScoreCARD, 
our sports weekly. 



"Change means that we 
are getting new blood, 
new ideas and looking 
at new ways to solve 
problems. " 



Jim's departure means we have 
placed, for now, anyway, our Color 
Computer history book on the back 
burner. We may move it back up front 
at any time, however, so stay tuned. 

While Jim will no longer work di- 
rectly with the magazines, he will con- 



tinue to oversee our operations on 
Delphi, So, he'll still be an important 
part of our CoCo Community. 



We will miss Pat and Jim, but, despite 
that, I think change is, essentially, good. 
Change means that we arc getting new 
blood, new ideas and looking at new 
ways to solve problems that we didn't 
have before. This is certainly not to say 
that the "old" ways didn't work or were 
no good, it is just that a fresh approach 
is always a good one. 

To that end, 1 remember a poem that 
Mrs. Howard, who taught Library at 
Crestline Grammar School, once made 
us learn. The essential part of it went: 

Make new friends; 
Bui keep the old. 
One is sliver; 
And the other gold, 

I think it most appropriate to consider 
those sentiments at this time, 

— Lormie Falk 




Corrections 



(See Page 30 for additional corrections.) 



'"Making a Christmas Address List" (December 1987, 
Page 66): George Saunderson has written to correct 
a bug that will cause an AO Error to occur if certain 
conditions are met when running XWASLIST. To 
correct the problem, re-enter Line 440 as follows: 

440 NEXT A: GOTO 420 

"A Chrislmas Potpourri"{December 1987, Page 100): 
One of the HDRflW codes is missing from Line 2460 of 
XMflSPDRl. That line should be altered as follows: 

2 4 60 HDRAW" BR10 ; BU2 ;XZY$ ; BRS ; BD6 
J BD1 ; XE$ ; BR9 ; BU2 ; XA$ ; BR3 ; BD1 ; XR$ 



"A Smooth Operator" (January 1988, Page 78): As 
written. SMUGTHY does not work properly on 5I2K 
CoCo 3s. To fix this problem, change the value of 25 
in Line 170 to a value of 217, Also, change the value 
of 24 in Line 220 to a value of 21G. 

"Taking Care of CoCo .1 Bugs" (Hint, February 1988, 
Page 115): The hint incorrectly states /rial if a value 
greater than 2.1 and less than 127 is givon as the vertical 
coordinate of the HPRINT^oinman/, the text to be 
printed will appear on iheJlrs^s^en line. Actually, 
any value greater than 23 but less than or equal to 127 
will cause the message to be printed on the bottom 
line, as it should. When the vertical coordinate is 
greater than 127 and less than or equal to IS I, 
however, the text will be printed on the first screen 
line. 

For quicker reference, Corrections will be posted on 
Delphi as soon as the) are available in the Info on 
Rainbow topic area of the database. Just type DfiTfi 
at the CoCo SIG> prompt and INFD at Ihe TOPlC> 
prompt. 
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DISK DRIVES 



Double S ided Double Density 360 K 4 Track '/2 Ht Disk Drives for CoCo2 and3. Buy from someone else and all you get is a disk drive Buy from us 
and not only do you get a quality disk drive but also $60 worth of disk utility software (Super Tape/ Disk Transfer and Disk Tutorial) and our 
DISKMAX utility which allows you to use BOTH sides of our disk drives Its like buying TWO disk drives for the price ot ONE!! 

DriweO (with J & M Controller & Cable): $229.95 Drive 1: $149.00 
TWOVz ht Drives in one case with cable & controller: $339.95 Single Power- Supply & Case; $59.95 

Disk Drive Power Supply "Y" Cables: $8.95 
(90 day warranty on all drives} 
J&M Controller (with RSDOS): $79.95 DISTO Super Controller: $99.95 
Mini Eprom Programmer Add- On; $54.95 Real Time Clock & Parallel Printer Interface Add-on: $39.95 

DISTO Super Controller II: $129.95 
I Drive Cable: $19.95 2 Drive Cable: $24.95 4 Drive Cable: $39.95 
(For Drives, add $7.00 S&H in USA/Canada} 




HARD DRIVES 

Finally! Hard Drive Interface for Basic and OS9 from Burke & Burke!! 

CoCo XT: Use up to2 5-1 20 Meg Hard Drives You buy WD1 002- WX1 orWD1 002-27 X Controller, Case and drive from your PC dealer and use CoCo 

XT to hook the drive up to your CoCa Includes drivers for 059/ Basic and complete documentation S69.95. 

HYPER I/O: Modifies RSDOS to allow use of floppy and hard drives If you are using hard drives from Basic, you will need HYPER I/O to access the 

hard drives Disk Only S24.95. 

COCO XT ROM: Installs in hard disk controller. Boots OS9 from hard/floppy drive SI 9.95. 

CoCo XT- HTC: Same as CoCo XT with Real Time Clock/ battery backup: $99.95. Please note you need a64 K CoCo or CoCo3 and Multipak for all 

versions 



COMMUNICATIONS 
EXTRAVAGANZA 

1) AVATEX 12008 MODEM: Fully Hayes 
compatible 300/1 200 Baud, Auto-Dial/ 
Answer/ RedialfReg $129.95) 

2) MODEM CABLE (Reg $19.95) 

3] AUTOTERM TERMINAL SOFTWARE 
4) FREE COMPUSERVE OFFER **«...%. 

5| UPS 2nd DAY AIR Shipping. 

only $149.95 

(With AVATEX 1200 he instead ol 

AVATEX 1200: $174.95) 
AVATEX 2400: 5229.95 



EPROM 




CABLES/INTERFACE/ 
ADAPTERS 



UPGRADES 



uniciiiriliuii dim 



512K UPGRADE FOR COCO 111 

Fast !2Qns chips. Fully tested. Easy installation No 
soldering Comes with complete documentation and 
RAM lest program on disk 

SW only $89.95 

iWnh purchase ol our 51 2 K RAMOISK program below) 
51 2 K Upgrade without chips S44.95 

512KRAMDISK $24.95 

Have? superlast RAMDISKsS a print spooler 

64KUpgradefor26-3134A/B CoCo ll:$39.95 
64 K Upgrade for CoCo I's, CoCo Us with Cat 
#26-3026/7, 26-3134 & 26-3136: $29.95 



RS23Z Y CABLE: Hook 2 devices to the 

serial port ONLYS18.95 

Y CABLE: Use your Disk System with 

CoCo Ma* DS69. etc 0NLYS24.95 

15' PRINTER/MODEM EXTENDER CABLE: 

ONLYS16.95 

MODEM CABLE: 4 pin to DB 25: S19.S5 

15" MULTIPAK/ROMPAK EXTENDER 

CABLE: S29.95 

3-POSITION SWITCHER: S37.95 
WICO TRACK BALL: S34.95 

RS HI-RES JOYSTICK INTERFACE: S11.9S 
MAGNAU0X8505/85I5/BCM643 Analog 
RGB Cable: $24.95 

CM-8 RGB Analog Ext. Cable: S19.95 
SONY Monitor Cable: S39.95 

VIDEO DRIVER: For Monochrome or Color. 
Specify CoCo 1 or 2, $34.95 

VIDEO CLEAR: Reduce TV interference. 

SI9 95 

SERIAL TO PARALLEL INTERFACE: With 6 

switch selectable baud rates (300-9600) 
Comes with all cables S44.95 



INTRONICS EPROM PROGRAMMER: Best 

EPROM Programmer for the CoCo, 

Lowest Price Anywhere SI 37.95 

EPROM ERASER | Datarase): Fast erase of 

24/28 pin EPROMs. S49.95 

EPROMS: 2764-38.00. 271 28 - $9. DO 

Call for other EPROMs. 

BOTH EPROM PROGRAMMER and ERASER: 

$179.95 

ROMPAK w/BlankPC Board 27xx Series: 

$12.95 



KEYBOARDS/ ACCESSORIES^ 

' KEYBOARD EXTENSION CABLE: Our keyboard 
extender cable allows you to move your keyboard 
away from the computer and type with ease You 
can use your existing keyboard with this cable or 
leave your present keyboard intact and use a second 
keyboard A MUST for all CoCo Users OnlyS39.95. 
Cable with CoCo II keyboard: S49.95 COCO 3 
KEYBOARD (includes FREE FUNCTION KEYS 
software value $19.95) S39.95 
CoCo II keyboard: St 9.95 



CHIPS, ETC. 



Disk Basic Rom l.t ( Needed for CoCo III) $29.95. 
GBB09E Chip: $14.95 EGB Bom l.t: S29.95. Mulli- 
Pak PAL Chip forCoCo3 SI 9.95 PAL Switcher: Now 

you can switch between the CoCo if and CoCo III 
modes when using the Multi-Pak You need the 
OLDER and NEW PAL chip for the 26-3024 
Multipak OnlyS39.95 With NEW PAL ChipS49.95 
5%" DS/DO Disks: SD45 each. 
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MICROCOM SOFTWARE 

P.O. Box 214 
Fairport. NY. 14450 
Phone(716) 223-1477 



All orders $50 and above [except Disk Drives) shipped by UPS 2nd Day Air within Continental US 
at mmlra charge NoCOOs WeacceplVisa MC Amex. Check or MO. Please add$3.O0 S&H 
(USA/Canada). Other countries S5.00 SSH. MYS residents please add sales tax hh 



To Place Credit Card Orders, Call Toll Free 1-800-654-5244 9 am -9 pm est? 
NY. Canada, Foreign Orders* Information, Technical Advice and Order Status call 1-716-223-1477 
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About 

Your 

Subscription 



Your copy of the rainbow is 
sent second class mail. You 
must notify us of a new address 
when you move Notification 
should reach us no later than 
the 15th of the month prior to 
the month in which you change 
youraddress. Sorry, we cannot 
be responsible for sending 
another copy when you fail to 
notify us. 

Your mailing label also 
shows an account number and 
the subscription expiration 
date. Please indicate this ac- 
count number when renewing 
or corresponding with us. It 
will help us help you better and 
faster. 

For Canadian and other non- 
U.S. subscribers, there may be 
a mailing address shown that is 
different from our editorial of- 
fice address. Do not send any 
correspondence to that mail- 
ing address. Send it to our edi- 
torial offices at Falsoft, Inc . 
The Falsoft Building, P.O. Box 
385, Prospect, KY 40059. This 
applies to everyone except 
those whose subscriptions are 
through our distributor in Aus- 
tralia. 



B u ildi n§ Apr H's R am bew 



Our favorite "home helper 



m 




. deserves a home of its very own! 



A far as 1 know, home builders are not yet incorporating computer rooms 

f^L CJinto their house plans, except when a house is custom designed, but 
A. JLlJJim Reed insists that architects will soon be sketching in computer 
rooms in the same routine manner they add utility rooms, breakfast nooks, half 
baths and sun rooms. 1 agree. And when that does become commonplace, what 
do you suppose the "standard" computer room will include, and where will it be? 

My first thought is that it would be nice to have the computer room look in 
on the family room, much as some kitchens are designed so you can look in on 
family members as you cook, or even follow what they Ye watching on TV. I guess 
the computer room's window might need to be closed if you fire up a loud printer 
or if the family room activity becomes too distracting, but I dislike being separated 
from the rest of the household when I am computing. 

A friend down in Florida is building a house right now, and the computer room 
is one of his central interests. He is having three phone lines put in. One is to 
be a voice line while the other two are data lines. Two data lines? Well, he says, 
if he is running a BBS, how else will he be able to access other BBS systems or 
the online services? Obviously, all of us would have a bunch of electrical outlets, 
but he also says his computer stuff will be on a completely separate circuit from 
the rest of the house. He's even having 25-conductor, RS-232 cable run throughout 
the house with five leads going into the computer room. 

While I'd prefer to stay in touch with family activities, he wants to be in the 
remotest part of the house. He is also having acoustical insulation installed so 
any late night tap, tap, tap on the keyboard will not disturb those who think the 
wee hours are for sleeping. 

Regardless of where the room is located, the custom computer room for the 
home should, 1 would think, be laid out so that screen reflections from windows, 
lamps, ceiling fixtures or even other monitors would be minimized. Such things 
as carpeting, home intercom, shelving (make sure to know where the studs are 
for later addition of more shelves) and wall decor are, of course, a matter of 
individual taste. In discussing it around the office, though, a surprising consensus 
developed that it would be great to have built-in counters and sit on high stools 
to compute! While none of the technical people around here have such a setup, 
all agreed they'd like to. In fact, such a prospect created more excitement than 
any other idea. 

Someone suggested a very large table be in the middle of the room (which all 
agree needs to be at least 10-by-14); the table would eliminate the hassle of where 
to put printouts and odds and ends. One programmer even wants a "whiteboard 
wall" in order to do flow-charting and the like on one entire wall. Everyone seemed 
in favor of allotting space for stereo equipment, if not cable TV as well. An easy 
chair and reading lamp for going over manuals met with wide agreement, but most 
felt one dreamer's desire for a cathedral ceiling and skylights was "pie in the sky." 
Still, if you are designing the ultimate computer room for your own needs, and 
the budget permits, why not? 

If you are one of the lucky ones who do get the chance to design your very 
own custom computer room, I'll offer this familiar recommendation: Allocate a 
place for storing all the back issues of the RAINBOW and include enough room 
for a lot of issues yet to come. And, since this is our "Home Help" issue, why 
not have a subscription "installed" for even greater convenience! 

— Jutta Kapfhammer 



16 



THE RAINBOW April 196B 











Bk, *^^. A * 












'.•;•;''•;%•* vX^^M ^^L "\^v^BlS|'I-*v-I'*'-'I-I-I '•X'X'X**'*'''^>»jC* *"' ^^/Xv!-Xv.X*X'rv!vXv.XvX* 


■ ■■ : ; . iX-o 




"rWVi.rh 


































Y: : :-:v: ; :-:-: : :-:%^^B •■:■:■. 








H V V»: : : : : : /-x : : : : : [f: : : : : : : : :?T 






































ffl^ \: ; : : :: : : : : : : : : : : : : : : ; : : : : : : : : : : ::: 











HOW DO YOU GIVE A RAINBOW? 



Name 



Address 
City 



From: 

Name 



Address 
City 



It's simple — Give a rainbow gift certificate 

Let a gift subscription to the 
rainbow carry the premier Color 
Computer magazine right to 
your friends' doorsteps, the 
rainbow is the information 
source for the Tandy Color Com- 
puter. 

Each month, your friends will 
enjoy the intelligent programs, 
reviews and articles written ex- 
clusively for their CoCo. 

First, your gift will be an- 
nounced in a handsome card. 
Then, all year 'round, they'll re- 
member you and your thought- 
fulness when they get each edi- 
tion of the rainbow— more than 
200 pages loaded with as many 
as 24 programs, 15 regular col- 
umns and lots of helpful hints 
and tips. 

Generosity benefits the giver, 
too. There'll be no more tracking 
down borrowed copies of the 
rainbow. Your collection will be 
safe at home. 

Give a rainbow gift certificate 
and let your friends in on the fun. 
the rainbow is the perfect com- 
panion for the Color Computer! 

Get your order to us by April 
25 and we'll begin your friends' 
subscriptions with the June 
issue of RAINBOW. 



Please begin a one-year (12 issues) gift subscription to 

THE RAINBOW for: 



.State 



ZIP 



.State 



ZIP 



□ My payment is enclosed. 

Bill to: D VISA □ MasterCard □ American Express 

Acct. # Exp. date 



Signature 



Mail to: 

Rainbow Gift Certificate, The Falsoft Building, P.O. Box 385, Prospect, 

KY 40059 

For credit card orders call (800) 847-0309, 8 a.m. to 5 p.m. EST. 
All other inquiries call (502) 228-4492. 



Subscriptions to THE rainbow are $31 in the United States: U.S. $38 in Canada. The surface rate 
to other countries is U.S. $68; the air rate, U.S. $103. Kentucky residents add 5% sales tax. U.S. 
currency only, please. All subscriptions begin with the current issue. Please allow 6 to 8 weeks for 
delivery. In order to hold down non-editorial costs, we do not bill. 
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rffffiffM 



CoCo Gallery 




This scene expressing tranquility at its best was developed with CoCo Max til. Wally 
and his wife have four children and three grandchildren; they live in Hamilton, Ohio. 



Honorable Mention 




King 



Michael Stafford 




Michael, who is 21 years old and has cerebral 
palsy, used basic and the CoCo 3 to create this 
graphic illustration, His main hobby is working 
with the CoCo; he lives in Port Orange, Florida. 



Philip, of Lauderhtll. Florida, used CoCo Max III to show the 
beauty of this Scarlet Macaw. Philip is an engineering 
supervisor for a machinery building company in Miami and 
his hobbies include snorkeling, horticulture and CoCoing. 
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Eddie, a freshman in college, used CoCo 
Max II to create these views of a 
Lamborghini. He lives in Hanford, 
California. 



CoCo Max It converted for the CoCo 3 
through CC-3-MAX, from Lomiq, was used 
to illustrate this aggression. Francis, 
whose hobbies include drawing, role- 
playing games and computers, lives in the 
village of St-Honore, Quebec, Canada. 




SHOWCASE YOUR BESTI You are invited to nominate original work [or inclusion in upcoming showings of "CoCo Gallery." Share your creations with the 
CoCo Community! Be sure to send a cover letter with your name, address and phone number, detailing how you created your picture (what programs you 
used, etc.} and how to display it. Also, please include a lew (acts about yourself. 

Don't send us anything owned by someone else; this means no game screens, digitized images from TV programs or material that's already been submitted 
elsewhere. A digitized copy of a picture that appears in a book or magazine is not an original work. 

We will award two first prizes of $25, one for the CoCo 3 and one for the CoCo f and 2; one second prize of S15 and one third prize of $10. Honorable Mentions 
may also be given. 

Please send your entry on either tape or disk to the CoCo Gallery, THE RAINBOW. P.O. Box 385, Prospect, KY 40059. Remember, this is a contest and your 
entry will not be returned. _ Ange | a Kapfhammer. Curator 
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Generate a form to grant authorization 
for the medical treatment of a minor 
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By James A. Upperman 



magine you and your spouse are 
away on a trip while your children 
J_Lare staying at home with relatives. 
Or perhaps your child is on a camping 
trip with a friend's family. What would 
happen if your child were badly injured 
or became seriously ill? What if your 
child needed immediate medical treat- 
ment? 

If the illness or injury could cause 



James Upperman is an archil eel in 
Columbus, Ohio, and has had his Color 
Computer for almost four years. He is 
a past president of the Centra! Ohio 
Color Computer Club. 
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death or loss of limb, the doctors would 
start medical treatment without delay. 
At the same time, they would make 
every effort to contact you to find out 
if your child has any medical conditions 
that might affect the treatment. 

On the other hand, if the situation 
were not quite as serious but still def- 
initely required medical treatment — 
and your child is a minor — there would 
be a serious complication. The doctors 
cannot — by law — start the necessary 
treatment until you are contacted and 
have given your consent. While the 
doctors try to reach you, your child 
must wait, without medical treatment, 
for hours or even days, until you are 



finally located. Only after you have 
given your consent can the doctors treat 
your child's injury or illness. 

Of course, when you and your chil- 
dren are apart, the people caring for 
your children should know how to 
reach you at all times. However, if you 
think there is a chance you may be hard 
to contact, you can temporarily assign 
the authority to approve your child's 
unexpected medical treatment to 
another adult in your place. The adult 
can be a relative, neighbor, minister or 
scoutmaster — anyone over the age of 
18 who will be with your child or who 
can be reached easily in case of an 
emergency. 



The Amazing A-BUS 




An A-BUS system with two Motherboards 
A-BUS adapter In foreground 

The A- BUS system works with the original CoCo, 
theCoCo2 and the CoCo 3. 

About the A-BUS system: 

• All the A-BUS cards are very easy to use with any language that can 
read or write to a Port or Memory. In BAS I C, use I NP and OUT lor PE EK and 
POKE with Apples and Tandy Color Computers) 

• They are all compatible with each Dther You can mix and match up to 25 
cards to fit your application- Card addresses are easily set with lumpers. 

• A-BUS cards are stripped with power supplies (except PD-123) and 
detailed manuals (including schematics and programming examples). 

Relay Card re-i40:$i29 

Includes eight Industrial relays. (3 amp contacts. SPST) individually 
controlled and latched, B LED's show status- Easy to use (OUT or POKE in 
BASIC) Card address is lumper selectable. 

Reed Relay Card re-isb: $99 

Same features as above, but uses S Reed Relays In switch low level signals 
(20mA max). Use as a channel selector, solid state relay driver, etc. 

Analog Input Card ad-i42:$i29 

Eighl analog inputs. lo +SV range can be expanded to 1 00V by adding a 
resistor 8 bit resolution (20mV). Conversion time 120us. Perfect to 
measure voltage, temperature, light levels, pressure, etc. Very easy to use. 

1 2 Bit A/D Converter an-i 46: $1 39 

Tnis analog to digital converter is accurate to .025%. Input range Is -4V to 
+4V. Resolution: 1 millivolt. The on board amplifier boosts signals up to 50 
limes to real microvolts. Conversion time is 1 30ms ideal tor thermocouple 
strain g3uge. etc 1 channel (Expand to 8 channels using I he RE-1 66 card) 

Digital Input Card in-i41:S59 

The eighl inputs are optically isolated, so it's safe and easy lo connect any 
"on/off" devices, such as switches, thermostats, alarm loops, etc. lo your 
computer. To read the eight inputs, simply use BASIC IMP (or PEEK). 

24 Line TTL I/O dq-i4B:S65 

Connect 24 Input or output signals [switches or any TTL device) to your 
computer The card can be set for input, latched output, strobed output, 
strobed input, and/or bidirectional strobed I/O Uses the 8255 A chip 

Clock with Alarm ci_-i44: $89 

Powerful clock/calendar with, battery backup for Time Date and Alarm 
setting (time and date); built in alarm relay, led and buzzer; timing to 1/100 
second Easy to use decimal format Lithium battery included 

Touch Tone® Decoder ph-i45:$79 

Each tone is converted into a number which Is stored on the board. Simply 
read the number with IMP or POKE. Use (or remote control projects, etc. 




ST-T43 



A-BUS Prototyping Card phis2: 

Vk by 4Vi in. with power and ground bus Fits up lo 10 I.C.s 



$15 



Plug into the future 

With the A-BUS you can plug your PC (IBM, Apple, 
TRS-80) into a future of exciting new applications in the fields 
of control, monitoring, automation, sensing, robotics, etc. 

Alpha's modular A-BUS offers a proven method to build your 
"custom" system today. Tomorrow, when you are ready to take 
another step, you will be able to add more functions. This is ideal for 
first time experimenting and teaching. 

A-BUS control can be entirely done in simple BASIC or Pascal, 
and no knowledge of electronics is required! 

An A-BUS system consists of the A-BUS adapter plugged into 
your computer and a cable to connect the Adapter to 1 or 2 A-BUS 
cards. The same cable will also fit an A-BUS Motherboard for 
expansion up to 25 cards in any combination. 

The A-BUS is backed by Alpha's continuing support (our 11th 
year, 50000 customers in over 60 countries). 

The complete set of A-BUS User's Manuals is available for $10. 



Smart Stepper Controller sc-i49:$2sa 

World's linest stepper controller On board microprocessor conlrols 4 
motors simultaneously. Incredibly, it accepts plain English commands like 
"Move arm 1 0.2 inches left". Many complex seguences can be defined as 
"macros" and stored In the on board memory. For each axis, you can conlral: 
coord in ale (relative br absolute), ramping, speed, slep type (halt. lull, wave), 
scale factor, units. .holding ppwer, etc. Many inputs 8 limit 8 "wail until" 
switches, panic button, etc. On Ihe fly reporting of position, speed, etc. On 
board drivers (350mA) for small steppers (MO-i 03) Send for SC- 1 49 flyer 
Remote Control Keypad Option RC-121 : $49 

To control the 4 motors direolly. and "teach" seauences of motions. 
Power Driver Board Option PD-1 23: SB9 

Boosl controller drive to 5 amps per phase. For two motors (eight dnversl 
Breakout Board Option BB-122: S19 

For easy connection of 2 motors. 3 ft. cable ends with screw terminal board 

Stepper Motor Driver st-i43:S79 

Stepper motors are the ultimate in moiion control. The special package 
(below) includes everything you need lo get familiar with them Each card 
drives two stepper motors (12V. bidirectional. 4 phase. 350 mA per phasel. 
Special Package: 2 motors (MO-1 03) + ST- 1 43: PA-181: $99 

Stepper Motors MO-103;$1Sor4for$39 

Pancake type. 214" dia. 14" shaft. 7.57stap. 4 phase bidirectional. 300 
stepteec, 1 2 V. 36 ohm. bipolar, 5 oHn torque, same as Airpax K8270 1 - P2 

Current Developments 

Intelligent Voice Synthesizer, 14 Oil Analog lo Digital converter, 4 Channel 

Digital lo Analog converter. Counter Timer, Voice Recognition. 

A-BUS Adapters for: 

IBM PC, XT, AT and compatibles. Uses one shori slot. 

Tandy 1 000 , 1 00 EX & SX, 1 2 , 30 00 dsas one situ n sm t 
Apple II. II4-, lie. Uses any slot 

TRS-80 Mode! 102, 200 Plug* Into 40 pin "system bus" 
Mode 1 1 00 . u ses 4 n in s iretaUSoc kel I s duel i caieit on ad aoier) 
TRS-80 Mod3.4.4D. Flts5uplntajs.(Withharddisk useY-caNe) 
TRS-80 Model 4 P. Includes extra cattle (50 pin nits is recessed! 
TRS-80 Model I. Plugs Into 40 pin I/O t-js on KB or E'l 
Color Computers (Tandyl.Fiis ROM sloi Muitak r,< v-caMe 

A-BUS Cable (3 ft, 50 COrtd.) CA-163:S24 

Connects Ihe A-BUS adapter to one A-BUS card or to first Motherboard. 
Special cable for two A-BUS cards: CA-1 62: S34 

A-BUS Motherboard mb-i2o=$99 

Each Motherboard holds five A-BUS cards. A sixth connector allows a 
1 second Motherboard to be added to the lirst (with connecting cable CA- 
161: S1 2) Up to five Motherboards can be joined this way to a single A- 
BUS adapter. Sturdy aluminum frame and card guides included, 
• Tha A-8US is not a replacement lor the Multl-pak 




RE- 140 




IN-141 




AR-133...J69 
AR-133...S69 
AR-134..S49 
AR-136.S60 
AR-135..569 
AR-132.S49 
AR-137..S62 
AR-131 $39 
AR-138 $49 
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AD-142 



Add 13. 00 par order for shipping. 
Visa, MC. Chucks, M.O, wolcoma. 
CT & NY residents add soles tax. 
COD. add S3. 00 «xua. 

Canada: shipping is $5 
Ovamesa add 10% 



J00\ ALPHA ^imVw§& 

littmfechuimfcbawv 242- W West Avenue, Darien, CT 06820 



Technical into (203)656-1806 

iHSW 800 221-0916 

Connecticut orders: (203) 348-9436 
All lines open weekdays 9 lo 5 Eastern time 




SPECIAL 







- FREE DEMO DISK 

- FREE COCOSHOW PROGRAM 

- FREE EXTRA FONTS DISK 






must be the most enjoyable, useful, 
and awesome program you've ever 
seen or your money back. 



Instantly, 
no questions asked. 



CALL NOW TOLL FREE 1-800 221 



Mon-Fri 
9 to 5 EST 



AND LET THE FUN BEGIN 



A FEW QUOTES *. 

Terrific hi-res color, v., 

r' to learn and use. 
Family Computing 
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1 experience. 

besorry. 
fi fln9 Express^ 



No(o: Thore is only one CoCo Max ///. Do not confuse {cqwrware 's CoCo Max with similar sounding imitations. 
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The fcesf program ever written for the Color Computer" 



That's how thousands of enthusiastic users rated 
the CoCo Max 1 1 drawing program. With CoCo Max 
III we are ready to amaze them again. Instead of 
"patching" CoCo Max II, we rewrote it from scratch 
to take advantage of the CoCo Max III hardware. 
The results will knock your socks off! Below is a 
brief list of some of the new features, but some, 
such asanimation, color sequencing, or the slide 
show, have to be seen. Send for the Demo Disk, and 
see for yourself. 

Everybody's favorite drawing package features: 

- A 50% larger aditing window. - Zoom area 400% 
larger. - New dewing tools: rays, 3D cubes, arcs,... - 
New editing tools: shadow.text size,... • Rotate by 1.5° 
steps - Select any 1 6 of the 64 possible colors (all 64 
colors displayed at once!) - Powerful color mix: additive, 
subtraetive, overlay,.., - Full color editing of patterns 
and color changing patterns. - Incredible special eff- 
ects with color cycling up to 8 colors with variable 
speed. -Animation adds the dimension of motion to 
your image. (Must be seen.) - Sophisticated data com- 
pression saves up to 70% of disk space when saving 
pictures. 

In addition, there are dozens of enhancements to the 
multitude of features that made CoCo Max 1 1 a best seller. 

More about CoCo Max III 

• CoCo Max III is not an upgrade of CoCo Max II. It is entirely 
rewritten to take advantage of the new CoCo 3 hardware 
(More memory, resolution, colors, speed,...) 

• The new CoCo Max III Hi-Res Interface and the CoCo Max II 
Hi-Res Pack are not interchangable. 

• The new interface plugs into the joystick connector. 

• The CoCo Max ill disk is not copy protected. 

• CoCo Max 111 only works with the CoCo 3. 

• A Y-Cable or Multi-pak is not necessary. 

• Colors are printed in five shades of gray. 

• CoCo Max ill can read CoCo Max II pictures. 



Note: CoCo Max II (for the CoCo 2) is still available on disk 
($79.95). CoCo Max I is still available on tape ($69.95), For 
details, refer to our double page ad in any Rainbow from 
January '86 to July '87 



Toll Free operators are for orders only. If you need precise answers, call 
the tech line. (Detained CoCo Max specs are included with the Demo Disk.) 



Add $3.00 per nritar tar *M|ipliiQ 
trill, MC, check! MO. walcom*. 
CT resident! irid sales lax. 
C.0.0. Idd J3.D0 nitre 
Cinedi: stripping Is SB 
Omniti >drJ 10% 
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Technical info (203)656-1806 

SSVSr* 800 221-0916 

Connecticut orders: (203) 348-9436 
Alt lines open weekdays 9 la 5 Eastern time 



colors Font Size Style 




Imagine this picture In sixteen colors ! 



[ 



Guaranteed Satisfaction 

U«* CoCo Max for a full month. 

II you are not delighted with it, 

we will refund every penny. 



System Requirements: 

Any CoCo 3 disk system with a Joystick or a Mouse. 

We apologia to lape users. CoCo Max III needs the flexibility of a disk. 

The CoCo Max III system includes: • The special Hi-Res 
interface (foryourmouseorjoystick) • The CoCo Max III disk • Many 
utilities: (Toconvert Max n pictures. Max colors. etc.) • Adetailled User's 

Manual. Complete sysiem; nothing else to buy. CoCo Max III: $79.95* 

I 1 



WITH COUPON ONLY 
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FREE DEMO DISK 

Name 
Street 

City 
State Zip 

Printer used: 

Please include $2 to help defray Processing and Shipping 
costs. {Check, Money Order, etc. Sorry, no COD or Credit 
Cards). Coupon (or copy) must be mail led to: 



* Beware of inferior imitations lhat 00 WOT Include a Hi-F!es Interlace 
or charae extra tor each utility. 



[COLORWARE 



A division of Sigma Industries, Inc. 



COLORWARE 

242-W West Avenue 
Darien, CT 06820 



Medical Authorization is a program 
that produces the document with which 
you temporarily assign the authority to 
another adult to approve unexpected 
medical treatment. The form also con- 
tains medical information that should 
be known by the doctors along with the 
names and phone numbers of your 
child's pediatrician, family doctor and 
dentist. You can also note any treatment 
that you prefer not to be performed 
until you are contacted (such as major 
surgery). 

You must sign the printed form and 
have your signature witnessed by an 
adult other than the adult to whom you 
are assigning the authority. The adult 
responsible for your child should keep 
the form handy and present it to the 
doctors if unexpected medical treat- 
ment is required. 

Running the Program 

When you load and run the program, 
the computer will display a title and 
your child's name. Please note that the 
computer uses a POKE 2B2 , in Line 21 
to place you in lowercase when you 
type. 

You will be asked to enter the name 
of the person you are making respon- 
sible. Then you are asked to enter the 
date on which the authorization ex- 
pires. 

Next, the medical history perma- 
nently contained in the program is 
displayed. You are asked whether you 
want to add to the information. If you 
press Y (Yes), you will be prompted to 
type in up to 250 characters. Do not 
worry about the printout format - 
lines 620 to 670 contain a short word- 
wrap routine that ends each printed line 
at a space rather than in the middle of 
a word. 

Finally, the program displays the 
parents' names and asks which parent 
is signing the form. You will then be 
prompted to set up the printer and press 
ENTER when ready. 

Typing in the Program 

If you have two or more children, you 
are required to have a separate form for 
each child. All information that relates 
directly to one child can easily be edited 
to create a version for another child. 
The MED in the sample program name 
should be changed to the child's initials 
or some other means of identification. 
The programs for my two children are 
flUTH CJfJ and RUTH EMU. 

When you type in the program, insert 
the permanent information concerning 
your child into the strings in lines 1000 
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AUTHORIZATION TO CONSENT PCS TREATMENT DF A MI 

I hereby grant to: Mrs. Rachel Smith 

Authority to give an informed consent for the treatment of! 
John E. Doe Jr, Bant! January 1, 1973 

Should such child require medical cars of any nature by reason 
of any condition or incident, except that the following procedures 
should not be performed without my consent unless the concurring 
medical opinion of two physicians Is that such procedures are 
necessary to relieve the suffering or preserve the life or limb 
of such child and I cannot be reached after reasonable attempts. 

A> Major Surgery 

B> Treatment with penicillin based antibiotics 

Facts concerning the child's history, including allergies, 
physical impairments and medications being taken, to which a 
physician should be alerted are as follows; 

John Jr, is allergic to Penicillin. 

John is taking oral antibiotics for an infected sore on his 
left hand, He also had a tetanus booster on Feb, 12, 

Our Pediatrician is: A. Kiddedec M.D. 
Phone: (514) 355-1234 

Dur family physician is: I. Kurem, M.D. 
Phone: (814) 555-557S 

Our Dentist is: I Yankum D.D.5, 

Pho.net 1614) 555-90 12 

Our Hospital of choice is: County General Hospital West 

Our Health Insurance Plan is: Blue Cross 
I.D, Number: 1122-33445 

This authorization expires at noon on February 2S, 19B6 



Witness 



Parent's Signature Date 

Mrs, Jane Doe 

i23 E, Main St. 

Any town, Ohio 433 IS 

Home Phone: (614) 555-9276 

Work Phone; (514) 555-S345 



Figure 1 



to 1200. Note that the information 
shown in the listing is only a sample to 
show the format of the entries. Do not 
use these entries; rather, substitute the 
information concerning your child in 
their places. Your permanent informa- 
tion will include your child's name; date 
of birth; any treatment you want re- 
stricted; permanent medical history; the 
names and phone numbers of your 
pediatrician, family doctor and dentist; 
hospital of choice; hospitalization; and 
the parents' names along with home and 
work phone numbers. 

Again, please note that the program 
uses POKE 282,0, so you should input 
all information in lower- and uppercase 
letters. You should use the SHIFT-O 
combination before and after typing in 
the information that is printed in low- 
ercase in the listing. This gives a uni- 
form printout that looks quite distin- 
guished. (See Figure 1.) 

When you are typing in your child's 
medical history (HIS in Line 1030), you 
do not have to worry about how the 



information will print out. 1 have in- 
cluded another simple wordwrap rou- 
tine in lines 550 to 600. 

You may not have anything to include 
for a particular entry. Perhaps your 
family physician is caring for your child 
and you do not have a specific pedia- 
trician. In this case, you may omit that 
particular line at the end of the pro- 
gram. Preferably, though, you should 
place an apostrophe (') or the command 
REM after the line number to make that 
line into a remarked statement. This 
would allow you to use that entry in the 
future if the occasion arises. 

The computer will usually skip all 
lines referring to the omitted entry on 
the form. If the medical history section 
or the hospital of choice entry is omit- 
ted, the form will contain a note stating 
that there are no specific instructions at 
this time. This is to prevent confusion 
by emergency personnel who may think 
the information was accidentally omit- 
ted rather than deliberately deleted. 

Also, you can change or add to the 



doctors listed in the sample program. 
For example, you may want to list a 
specific allergist. You should change or 
add to the doctors' identification strings 
at the end of the program, along with 
the printing instructions located in lines 
690 to 710. The format used should be 
the same as for the other doctors. 

Special printer control codes are not 
required for the printing of the docu- 
ment, which makes the program easy to 
use by owners of all types of printers. 
A form feed, CHRSjlZ), is used in Line 
830 to advance the paper when printing 
is done; this can be deleted if your 
printer does not accept it. You can add 



special codes, as you wish, to dress up 
the document. Be careful, though, in 
adding too many features to the form: 
When the permanent medical history 
string and the additional information 
entry are both near maximum length, 
the form uses almost the entire length 
of an 1 1-inch sheet of paper. 

The document generated by this 
program is based on a form distributed 
as a public service by Riverside Meth- 
odist Hospital in Columbus, Ohio. It is 
the kind of form that every family 
should keep on hand and fill out when- 
ever parents or children will be away 
from home. Unfortunately in my case, 



when I need a form such as this one, 1 
usually have no idea where I've put my 
copy for "safekeeping," or I've already 
used my last copy without making a 
duplicate blank. By using this program, 
you can make a ready copy quickly, 
without having to look up names and 
phone numbers and without acciden- 
tally omitting important information. 



(Questions or comments regarding 
this program may be directed to the 
author at 5201 Wilcox Road, Amlin, 
OH 43002. Please enclose an SASE 
when writing for a response.) □ 



V/ 260 ......131 

1 410 193 

500 122 

660 214 

760 109 

920 29 

END 157 



The listing: MED FORM 



1J3 

20 

30 

40 

50 

60 

70 

80 

90 

150 

160 

170 

180 



1 **************************** 
•AUTHORIZATION TO CONSENT 
'FOR THE TREATMENT OF A MINOR 
• **************************** 

'PROGRAM BY J. A. UPPERMAN 
'BASED ON AN AUTHORIZATION 
'FORM BY RIVERSIDE METHODIST 
'HOSPITAL, COLUMBUS, OHIO 
i**************************** 

'ENTER THE INFORMATION THAT 
'APPLIES TO YOU AND YOUR 
'CHILD STARTING AT LINE 1000 
' *************************** 

200 CLEAR 1500: GOSUB 1000 

210 POKE 282,0 

220 CLS:PRINT"AUTHORIZATION TO C 

ONSENT FOR": PRINT "TREATMENT OF:" 

: PRINT CH$:GOSUB 8 80 

230 PRINT"NAME OF PERSON BEING A 

PPOINTED GUARDIAN? " 

2 40 LINE INPUT GA$ : IF GA$="" THE 

N SOUND 100,1: SOUND 50 , 2 : GOTO 2 3 

ELSE GOSUB 880 

2 50 PRINT"AUTHORIZATION EXPIRES 

ON NOON": PRINT "OF WHAT DATE?" 

2 60 LINE INPUT EX$ : IF EX$="" THE 

N SOUND 150 , 1 : SOUND 100 , 2 : GOTO 2 

50 ELSE GOSUB 8 80 

2 70 PRINT"MEDICAL HISTORY ON FIL 

E:": IF HI$="" THEN PRINT: PRINT" 

«NOTHING ON FILE AT THIS TIME» 

": PRINT: GOTO 2 90 

280 PRINT HI$ 

290 PRINT "DO YOU WISH TO ADD TO 



THIS INFORMATION <y/n>"; 
300 INPUT YN$:IF YN$="n" OR YN$= 
"N" THEN 3 30 ELSE IF YN$<>"y" AN 
D YN$<>"Y" THEN 290 
310 CLS: PRINT "TYPE IN ADDITIONAL 
INFORMATION" : PRINT" (250 CHARACT 
ERS MAXIMUM) " : PRINT 
320 LINE INPUT MH$ 

330 GOSUB 880: PRINT "PARENT SIGNI 
NG FORM:" 

3 40 PRINT" 1> ";PA$(1) : PRINT" 2> " 
; PA$ (2 ): INPUT "ENTER 1 OR 2";PN 
350 IF PNol AND PN<>2 THEN 330 






3raaaasiai^i»fflaaraEEM 



i® 11 3 (3 IF 5^©™ byVidicomCorp 

§®m9s&V3 m - a ram disk 

thai doesn't forgel! FuIIg 

Sialic, ballenj backed CITlos 

ram makes SolidDrivs'" 

ready to use instantly. You 

can forgel formatting and 

copying work files Id 

ramdisk than copying back 

your changes to floppy. You 

can forgel fear of power 

failures. The instant power 

loss occurs, lolMIiT'tos™ 

umle-prolecls itself and 

your valuable utork. 

iiDCdHtrB^S™ gives gou 

slale-of-lhe-arl surface 

mount technology. Thai's 
Itohy roe have the best 
"" guarantee in the industry - 

Troo years limited repair or 

replacement! §®ldl§irSw3 m 

is compatible roilh Illulli- 
|Pak® and comes complete 
Iroith 059® Level I or II 
E device driver, formatter and self-lest software. Available in 512Kb 

and 1 megabyte versions. Factory upgrades available for 512K 

version. RSEos Driv er noro availab le, treats iSjHMHiirfes' 10 as 3 or Eg 

1 1_, „,,™„, — STi — T^T- ^~Z ISSSD BS devices (4-6,^-9), Disk ! 

mWta Vid.com Cora loadEQ - version ir \ e on r^u* 

27C64 EProm version $ 19.0Q 

liaSSlSilifttSB'' 3 is the fastest , most 

reliable long-term storage available 

Id Ihe small compuleruserl 

,,,,,,, ; , , : : .. .....,-..,. OSfll^hetrad^kofMkraware 

/«,,\ n , n - Systems Inc ana Motorola Inc. 

JHesa.flZ B52Q1 [602 J 827-G1D7 Mulll-pBk is the trademark of 

Hours m-F 9:00 am - 5:00 pm HIST Tandy Corp. 




ItoIMIirfwa™ by Vidicom Corp 
51ZK(5Z4,2BS bytes) $395.00 

1 meg(l.D'lB.S76bgles) $695.00 
Please add $4,011 shipping 
Arizona Residienls add 5.5% 5ales tax 
Visa masterCarrl orders uielcome 



April 1988 THE RAINBOW 25 



3 6,0 GOSUB 8SJ3 

37 p PRINT" SET THE PRINTER TO THE 

TOP OF THE PAPER" 
380 PRINT: INPUT"PRESS <ENTER> WH 
EN READY." ;YN$ 
390 I *************************** 

400 'PRINTING FORM 

410 CLS:PRINT"PLEASE WAIT - PRIN 

TING FORM": GOSUB 880 

42 FOR CT=1 TO 2 : PRINTS -2 : NEXT 

430 PRINT* -2, TAB (14) "AUTHORIZATI 

ON TO CONSENT FOR TREATMENT OF A 

MINOR 11 
44j3 PRINT#-2:PRINT#-2,TAB(8)"I h 
ereby grant to: ";GA$ 
450 PRINT#-2 : PRINT#-2 ,TAB (8) "Aut 
hority to give an informed conse 
nt for the treatment of:":PRINT# 
-2,TAB(12)CH$?" Born: ";DA$:PRI 
NT#-2 

460 PRINT#-2, TAB (8) "Should such 
child require medical care of an 
y nature by reason" : PRINT* -2 , TAB 
(8) "of any condition or incident 
, except that the following proc 
edures":PRINT#-2,TAB(8) "should n 
at be performed without my conse 
nt unless the concurring" 
470 PRINT#-2, TAB (8) "medical opin 
ion of two physicians is that su 
ch procedures are":PRINT#-2,TAB( 
8) "necessary to relieve the suff 
ering or preserve the life or li 
mb" :PRINT#-2,TAB(8) "of such chil 
d and I cannot be reached after 
reasonable attempts." 
480 PRINT#-2 

490 PRINT#-2,TAB(12) "A> Major Su 
rgery" 

500 IF OT$<>"" THEN PRINT#-2,TAB 
(12) "B> ";OT$ 
510 PRINT* -2 

520 PRINT#-2,TAB(8)"Facts concer 
ning the child's history, includ 
ing allergies, " : PRINT#-2 ,TAB (8) " 
physical impairments and medicat 
ions being taken, to which a 1 '; PR 
INT#-2,TAB (8) "physician should b 
e alerted are as follows : " 
530 PRINT#-2 

540 IF HI$="" AND MH$="" THEN PR 
INT#-2 , TAB (12) "No special instru 
ctions at this time.":G0TO 680 
550 A$=HI$+" " 

560 IF A$="" OR A$=" " THEN 610 
570 FOR CT=60 TO 1 STEP-1 
580 IF MID$(A$,CT,1)<>" "THEN NE 
XT 

590 B$=LEFT$(A$,CT) : PRINT#-2 ,TAB 
(12) ;B$ 
600 A=LEN(A$) :A$=RIGHT$(A$, (A-CT 



) ) :GOTO 560 

610 PRINT#-2 

620 C$=MH$+" " 

630 IF C$ = "" OR C$=" " THEN 680 

640 FOR CT=60 TO 1 STEP-1 

650 IF MID$(C$,CT,1)<>" "THEN NE 

XT 

660 D$=LEFT$ (C$ , CT) : PRINT#-2 , TAB 

(12) ;D$ 

670 C=LEN(C$) :C$=RIGHT$(C$, (C-CT 

) ) :GOTO 6 30 

680 PRINT#-2 

690 IF PE$<> 1MI THEN PRINT#-2,TAB 

(8) "Our Pediatrician is: ";PE$: 

PRINT* -2 , TAB (12 ) "Phone : " ; PP$ : PRI 

NT#-2 

700 IF FA$<>"" THEN PRINT#-2,TAB 

(8) "Our family physician is: " ; 

FA$ : PRINT#-2 , TAB ( 12 ) "Phone : " ; FP$ 

:PRINT#-2 

710 IF DE$<>"" THEN PRINT*-2,TAB 

(8) "Our Dentist is: ";DE$: PRINT 

#-2 , TAB ( 12 ) "Phone : " ; DP$ : PRINT*-2 

720 PRINT#-2,TAB(8)"Our Hospital 

of choice is: " ; 
730 IF HO$= ,l1, THEN PRINT*-2,"No 
specific Hospital" :PRlNT*-2 ELSE 

PRINT#-2 , H0$ : PRINT*-2 
740 IF HE$<>"" THEN PRINT #-2, TAB 
(8) "Our Health Insurance Plan is 
: " ;HE$:PRINT#-2,TAB(12) "I.D. Nu 
mber: " ;ID$ : PRINT#-2 
750 PRINT#-2,TAB(8)"This author! 
zation expires at noon on " ;EX$ 
760 PRINT#-2:PRINT#-2:PRINT#-2:P 
RINT#-2,TAB(8)STRING$(24,"-") ;TA 
B(40) ?STRING$(32,"-") 
770 PRINT#~2,TAB(8) "Witness"? TAB 
( 40 ) ; " Parent ' s S ignature 
Date" 

7 80 PRINT#-2:PRINT#-2,TAB(40) ;PA 
S(PN) 

790 PRINT* -2, TAB (40) ;ST$ 
800 PRINT#-2,TAB(40) ;CI$ 
810 PRINT#-2,TAB(40) ; "Home Phone 
: ";HP$ 

820 IF WP$(PN)<>"" THEN PRINT#-2 
, TAB (40)" Work Phone: ";WP$(PN) 
830 PRINT#-2,CHR$(12) ; 'FORM FEE 
D -OMIT IF YODR PRINTER DOES NOT 
ACCEPT IT. 

8 40 CLS: PRINT "THE FORM FOR " : PRI 

NTCH$:PRINT"IS FINISHED PRINTING 
it 

8 50 POKE 2 8 2,255 

8 60 END 

870 '*************************** 

880 PRINT STRING? ( 32,"*" ): RETURN 
900 'A************************** 

910 'SUBSTITUTE THE INFORMATION 
THAT APPLIES TO YOU AND YOUR 
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CHILD ON THE FOLLOWING LINES. 
920 'note! ANY LINE THAT DOES 
NOT APPLY TO YOU OR YOUR CHILD, 
SUCH AS A SPECIFIC TYPE OF DOC- 
TOR OR PARENT'S WORK PHONE NUM- 
BER MAY BE OMITTED OR PRECEDED 
WITH AN APOSTROPHE <'>. THE 
COMPUTER WILL SKIP THAT ENTRY ON 
THE FORM. 
990 ' fc A * * # # * # A * # ^ ♦# tfr W ♦ ft A ife ♦ ♦ ifc # AA A 

Ij30j3 CH$="John E. Doe Jr." 'CHI 

LD'S NAME 

101J3 DA$="January 1, 1978" 'CHIL 
D'S DATE OF BIRTH 
102,0 OT$=" Treatment with penicil 
lin based antibiotics 1 " OTHER TRE 
ATMENT RESTRICTED. 5,0 CHARACTERS 
MAXIMUM. 

1,03,0 Hl$="John Jr. is allergic t 

Penicillin. " 

1,040 'HI$ IS THE CHILD'S MEDICAL 
HISTORY. 240 CHARACTER MAXIMUM 
LENGTH . 

1050 RE$="A. Kiddedoc M.D." ' PED 

IATRICIAN 

1060 PP$="(614) 555-1234" ' PEDIA 

TRICIAN'S PHONE 

1070 FA$="I. Kurem, M.D. " 'FAM 

ILY DOCTOR 

1080 FP$="(614) 555-5678" 'FAMIL 

Y DOCTOR'S PHONE 

1090 DE$="I Yankura D.D.S." ' FAMI 

LY DENTIST 

1100 DP$="(614) 555-9012" ' DENTI 

ST'S PHONE 

1110 HO$="County General Hospita 

1 West" 'HOSPITAL OF CHOICE 
1120 HE$="Blue Cross" 'HEALTH IN 
SURANCE 

1130 ID$="1122-33445 ,, 'I.D. NUMB 

ER 

1140 PA$(l)="Mr. John E. Doe, Sr 

." 'FATHER'S NAME 

1150 PA$(2)="Mrs. Jane Doe" 'MOT 

HER'S NAME 

1160 ST$="123 E. Main St." 'STRE 

ET ADDRESS 

1170 CI$="Anytown, Ohio 43210" ' 

CITY AND STATE 

1180 HP$=" (614) 555-9876" 'HOME 

PHONE 

1190 WP$(1)="(614) 555-5432" ' F 

ATHER'S WORK PHONE 

1200 WP$ (2)=" (614) 555-2345" ' M 

OTHER'S WORK PHONE 

1210 RETURN 
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Run VIP on your Color 
Computer 1, 2 or 3! 



VIP Calc 

"MORE USEABLE FEATURES"-Feb 1985 "Rainbow" 

Now every CoCo owner has access to a calculating and 

planning tool better than VisiCalc, containing all its 
features and commands and then some, VIP Calc displays 
32, 51 , 64 or 85 characters by 21 or 24 lines right on the 
screen. VIP Calc allows up to a 33K worksheet with up to 
512 columns by 1024 rows! In addition, VIP calc has multiple 
windows which allow you to compare and contrast results of 
changes. Other features include 1 6 DIGIT PRECISION • trig. 
functions ■ averaging • algebraic functions • column and row 
ascending or descending SORTS • locate formulas ortitles in 
cells • block move and replicate • global or local column width 
• limitless programmable functions ■ works with any printer, 
Embed printer control codes for customized printing. 
Combine spreadsheet tables with VIP Writer documents to 
create ledgers, projections, statistical and financial budgets 
and reports. Requires 64K. TAPE $49.95 DISK $59.95 



VIP Database 

"ONE OF THE BEST" JULY 1984 "RAINBOW" 
The VIP Database features selectable screen displays of 51, 
64 or 85 characters by 24 lines for maximum utility. It will 
handle as many records as will fit on your disks and is 
structured in a simple and easy to understand menu system 
with full prompting for easy operation. Your data is stored in 
records of your own design. All files are fully indexed for 
speed and efficiency. Full sort of records is provided for easy 
listing of names, figures, addresses etc., in ascending or 
descending alphabetic or numerical order. Records can be 
searched for specific entries, using multiple search criteria. 
With Database mail-merge you may also combine files, sort 
and print mailing lists, print form letters, address envelopes - 
the list is endless. The built-in MATH package even performs 
arithmetic operations and updates other fields. ViP Database 
also has unlimited print format and report generation with em- 
bedable control codes for use with all printers. DISK $49,95 



Coming Soon: VIP Database III 



VIP Terminal 

RATED BEST IN JANUARY 1984 "RAINBOW" 
For your important communications needs you've got to go 

beyond software that only lets you chat. You need a smart 

terminal so that you can send and receive programs and 

messages and print them! The VIP Terminal features 32, 51, 

64 or 85 characters by 21 or 24 lines on the screen and has a 

43,000 byte buffer in a 64K computer to store information. 

Requires 32 K TAPE $29.95 DISK $39.95 



CoCo 3 owners upgrade your VIP Calc, Database or Terminal 
to run on the CoCo 3 for $30 +$3 S/H. Send original product. 



VIP Disk-Zap 

RAVED ABOUT IN THE APRIL 1983 "RAINBOW" 

VIP Disk-Zap is the ultimate repair utility for simple and quick 
repair of most disk errors. Designed with the non-programmer 
in mind, the VIP Disk-Zap will let you retrieve all types of 
bashed files, BASIC and Machine Code programs. The 50 
page tutorial makes the novice an expert. DISK $24.95 



SD Enterprises FOB. 1233 Gresham, Or. 97030 (503) 663-2865 
Please add $3,00 for shipping. GOD orders add an additional $2.25. Personal 
checks allow 3 weels for delivery. All other orders shipped the same day. 
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A database for all your old family recipes 



Good Things Are Cookin' 

on CoCo 



By Brad Spencer 



Are you tired of the same sloppy, 
disorganized recipe box? With 
Recipe Filer you can say good- 
bye to all those greasy old cards and 
store your family secrets on your CoCo. 
Recipe Filer allows you to save, load, 
edit and print out your recipes in a 3- 
by-5 card format. You can even cate- 
gorize your concoctions so that finding 
them will be fast. 

The program is user-prompting, 
menu-driven and very easy to use. On 
running the program, you are presented 
with the main menu and its six num- 
bered options: Enter Recipe, List Rec- 
ipe, Print Recipe, Save Recipe, Load 
Recipe and Edit Recipe. Just press a 
number — you won't need to press 
ENTER, as 1 used INKEYS instead of an 
INPUT command. 

Filing It Away 

Before you can do anything eise with 
this program, you must enter a recipe. 

Hrad Spencer is a student in Crawfords- 
ville, Indiana, and has been program- 
ming for the CoCo for four years. He 
enjoys making programs for the special 
education classes at his school. 
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At the main menu, press I (Enter Rec- 
ipe). You are dropped into the Catego- 
ries submenu, where you must choose 
the category under which you will file 
your recipe -- main dishes, cakes, 
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salads, pastry, soups, meats, etc. 

There are 10 categories, including 
"Other" for dishes that don't fit into the 
categories I have provided. For the 
submenu prompts, I used INPUT com- 
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the Color Computer 3 Word Processor 



For over 5 years now, Telewriter has been 
the #1 Color Computer word processor, 
both in popularity and in performance. 
Telewriter's near perfect mix of sophisti- 
cated professional features and a very natu- 
ral user interface, has earned it the highest 
praise in numerous magazines, and an in- 
tensely loyal following among tens of thou- 
sands of Color Computer users all over the 
world. 



Throughout the history of the Color Com- 
puter, Telewriter has pioneered software 
breakthroughs that set the standards. 

In 1981, it was Telewriter 1,0 that first took 
the Color Computer's inadequate 32X16 all- 
uppercase display, and replaced it with a 
graphics-based 5 1X24 upper and lowercase 

display. 

A few years later, Telewriter-64 added high 
density 64X24 and 85X24 displays and ac- 
cess to the full 64 K of the newer Color 

Computers. 



THE NEW AGE 



Today, Telewriter-64 is recognized as the 
standard Color Computer word processor. It 
runs on all Tandy Color Computers — from 
the original Color Computer 1 , to the Color 
Computer 2, and 3. 

But the Color Computer 3 brings a whole 
new level of power to low cost computing 
and, so, a new Telewriter is here to put that 
power to work for you. We call itTelewriter- 
128, 



TELEWRITER-128 



You don't mess with a good thing, so 
Telewriter- 128 is still Telewriter-64 at heart. 
The commands, and the user interface are 
essentially the same. If you know- 
Tele write r-64, then you already know 
Tele writer- 128. And, if you don't know 
Telewriter-64, you'll still have an easy time 
learning and using Telewriter-1 28, 



80 COLUMNS 



But there are major differences as well. First, 
Telewriter- 128 uses the Color Computer 3's 
new 80 column screen display. 

This means, simply, that using Telewriter- 
1 28 on a low cost Color Computer 3 will look 
a lot like using a more expensive word 
processor on a much more expensive IBM 
PC, PS/2, or clone. 



Second, Telewriter- 128 is lightning fast. 
Telewriter-64 was fast in its own right, but, 
by accessing the Color Computer 3's video 
hardware directly, and by tunning the 
machine in double speed modc.Telewriter- 
128 is able to provide extremely fast scroll- 
ing and instant paging — functions whose 
speed is crucial to serious word processing. 

In this department, Telewriter-1 28 doesn't 
simply keep up with IBM-based word proc- 
essors ■ — it generally surpasses them! 



Third, Telewriter-1 28 adds a host of new 
features big and small, that make it even 
easier to use. 

Features like: Quick function key access to 
the e d ito r or t he me nu s — a n i nsta nt on - li ne 
help screen summarizing all Telewriter 
commands and special characters — an 
opt ion fi le where you store your persona I set 
of formal and screen settings so you only 
have to set them once! 

Then, there's a quick save feature which 
allows you to save all your current work 
without leaving the editor. There's a simple 
way to cursor th rough the disk directory and 
read in a file by just hitting ENTER. And 
there's more. 



NEW POWER 



Telewriter-64 always had the power to 
handle any kind of serious writing, from 
letters to textbooks. But. here too. 
Telewriter- 1 28 adds major features. 



Like Macros — which let you insert whole 
words or phrases (even sets of control codes 
or format commands) into your text, with a 
single keypress. And every time you power 
up Telewriter-128. the macro definitions are 
automatically loaded*, so they're always 
there. 

Then there's a Print Preview feature that 
shows you, on-screen, the way your printed 
text will look — with margins, headers, 
centering, justification, page numbering, 
and page breaks. This guarantees letter 
perfect documents every time, and makes 
tasks like widowv'orphan line elimination, a 
breeze. 



Tltl.F.WHI TF.R-64 or TI'.IEWItlTKK- 1 ZH 



We could go on listing tea tu res, but the point 
is this: If you own a Color Computer, you al- 
ready have the hardware for the most 
powerful, low cost word processor in town. 
All you need now is to add the heart and 
soul: 

Telewfiter-64, for the Color Computer 1 
and 2, costs $59.95 on disk. $49.95 on 
cassette. 

Telewriter- 1 28 for the Color Computer 3 
costs $79.95 on disk, $69.95 on cassette. 
To order by Mastercard or Visa call (619) 
755-1258 anytime, or send check or money 
order plus $2 shipping (Californians add 6% 
sales tax) to: 

COGNITEC 

704 Nob Ave. 
Del Mar, CA 92014 

To upgrade from Telewriter-64 to 
Telewriter-128, return your original disk or 
cassette with $39.95. (Add $10 if you're also 
upgrading from cassette to disk. Deduct $10 
with proof of Oct '87 - Feb '88, purchase of 
Telewriter-64.) 

When I first got Telewriter-64 last year, 
I was in heaven. I couldn't believe (be 
I m [Lira m'i versatility and ease of use. 
-The RAINBOW. Oct. 1985 



TELEWRrTER-64 FEATURES: Compatibility with any. printer that works with 
the Color Computer; embedded control codes fur underlining, boldface, sub/ 
superscript, variable fonts: format commands for headers, centering, margin and 
spacing changes anywhere in the document; Format menu to set margins, 
spacing, page numbering, UAt;n rate, lines per page, justification; Chain 
printing for one shot printing of mtilti-file documents. Fast, full-screen editor 
with wordwrap, block copy/ move/delete, global search and replace, wild cart! 
seatch fast 4-way auto-repeat cursor, fast scrolling, forward and backward 
paging, text alignment, tabs, error protection, word and line counter. Insert or 
delete text anywhere on the screen. Simple, easy to remember commands. 
Optional ASCII files for compatibility with spell checkers, terminal programs, 



and BASIC. E,oad, save, append, partial save files to disk or cassette. Kill, rename 
and list disk files. Cassette verify and auto-retry on ettor. 
FELEWRI ~reR-128 - ADDITIONAL FEATURES: Print preview from editor: 
multiple copy print; footers; hanging indents: cursor thru disk directory to load, 
append, rename and kill files; quick file save from editor: keyclick: key repeat; 
true block move; 24, 25, or 28 line screen; 40 or HO column screen; dual speed 
cursor; on-line help; overstrike mode; word delete; wordwrap at margin; user 
definable macros; nested macros; instant status window for information on 
cursor position, word count, etc.; instant function key access to menus or editor; 
options menu for selling character and screen colors, key repeal and delay rates, 
definable foreign symbols. 



ntM and PS/2 j re irack-tiurks of International Business Machines Inc. 'disk version unly 



mands, so press ENTER after pressing 
the category number of your choice. (As 
you may notice, I have reserved four 
categories for sweets. If you are not as 
sweetly inclined, feel free to edit lines 80 
and 140, substituting categories of your 
choice.) 

After you choose the category, you 
are dropped into the "Enter Recipe" 
screen. As you are reminded onscreen, 
you have 30 lines in which to write your 
recipe, and are limited to a maximum 
of 40 characters per line. You'll notice 
the cursor blinking at the beginning of 
the first line — that means start typing! 
If you want upper- and lowercase ca- 
pability, press the SHIFI'-O combination 
before you begin, but make sure you 
"turn it off" by pressing the combina- 
tion again when you're finished. 

When you have reached the end of 
your first line (which you will probably 
want to reserve for the title), press 
ENTER. If you entered too many char- 
acters, the program will tell you so and 
have you enter the line again. Just keep 
entering lines and pressing ENTER for 
each until you reach the 30th line. (Even 
if your recipe takes up only 10 lines, you 
must "use up" 30 lines — just keep 
pressing ENTER.) When you have en- 



tered the 30th line, you are told you 
have no lines left and are booted back 
to the main menu. You've done it! The 
hard part is over! 

Your Options 

Now that you've entered a recipe, 
you'll probably want to look at it. Press 
2 (List Recipe) at the main menu to list 
your creation. Your recipe slowly scrolls 
up the screen. Press any key to return 
to the main menu. If you noticed any 
mistakes in the recipe, you can correct 
them by pressing main menu's Option 
6 (Edit Recipe). 

From the Edit screen, you must 
choose to edit either the category name 
or a line. If you choose to edit a line, 
you will again see the recipe scroll by. 
Find the line that needs fixing and type 
in its number. If, for example, Line 5 
needs editing, press 5 and then ENTER. 
A new, blank Line 5 appears; re-enter 
it. You are then booted back to the main 
menu. If there are more mistakes to 
correct, repeal the process. 

When you have the recipe corrected, 
you will want to save it. Just press 4 
(Save Recipe) at the main menu and 
follow the prompts. Recipe Filer was 
designed for a disk system, but if you 



have a cassette, you can modify the 
program for your use: Change all occur- 
rences of WRITE HI to PRINT HI; INPUT 
HI to INPUTB-1; OPEN ttl to DPENH-1; 
and CLDSE 81 to CLD5E 8-1. 

Now that your recipe is saved, you 
can call it back into memory whenever 
you want by pressing 5 (Load Recipe) 
at the main menu and answering the 
prompts. 

Trying to follow your recipe from a 
monitor in the kitchen would not be 
very practical, so I have included an 
option that prints out your recipe in a 
3-by-5 inch format (in case you're 
missing those greasy cards). Just press 
3 (Print Recipe) at the main menu and 
follow the prompts. Most printers 
should work fine. 

You can cut out your new "cards" 
and store them in the old recipe box. 
But you won't have to worry about 
losing them or cramping your hand 
copying cooking instructions for 
dinner guests who must have your rec- 
ipe! 

(Questions or comments about this 
program may be directed to the author 
at #2 McCormick Drive, Crawfords- 
ville, IN 47933. Please enclose an SASE 
when writing for a reply.) □ 



Corrections 



(See Page 14 lor additional corrections.) 



"The Post Office" (March 1988, Page 104): Due to a 

production error, a portio:i of the Post Office program 
was inadvertently omitteJ from the magazine. The 
following lines should be added to the program. 
RAINBOW ON TAPE and F AINBOW ON DISK were not 
affected and include the complete program. 

6485 IF A=0 >MK> INSTR (DFS , SDS) >0 

THEN FL ( 2 ) -^RETURN 
649)3 IF A=0 AND INSTR(DO$ ,SD$) >0 

THEN FL(2)=1: RETURN 
64 95 RETURN 

55^0 i__ print AND INPUT SUBROUT 
INE — 

6505 PRINTTAB(TB)" CODE:" 
; :ATTR 1,0:PRINTVS(1) 
6510 PRINTTAB(TB) " NAME:" 
;:ATTR 1,0:PRINTVS(2) 
5515 PRINTTAB(TB) " ADDRESS:" 
;:ATTR 1,0: PRINT V$(3) 
6520 PRINTTAB(TB) » CITY:" 
iSATTR 1,0: PRINT VS(4) 
S525 PRINTTAB (TB) " STATE i " 
;:ATTR 1,0:PRINTV$(5) 
6530 PRINTTAB (TB) " ZIP:" 

! : ATTR 1,0: PRINTV$ ( 6 ) 
6535 PRINTTAB(TB) " TELEPHONE #:" 
;:ATTR 1,0:PRINTV$(7) 
6540 PRINTTAB (TB) " F,L NAME:" 
;:ATTR 1 ,0 ;FRINTV$ (8) 
6545 PRINTTAB(TB) " COUNTRY:" 
;:ATTR 1,0 : PRINTVS (9) 
6550 LOCATE £,9 

6555 GU=0:R=9:C=DC:L=*10:VN=1:GOS 
UB 7000: IF GU=1 THEN 6555 
6560 GU=0:R=10:C=DC:L=2 5:VN=2:GO 
SUB 7000:IF GU=1 THEN 6555 



6565 R=ll:C=DC:L=25;VN=3:GOSUB 7 

000: IF GU=1 THEN 6560 

6570 GU=0:R=12:C=DC:L=2 5:VN=4:GO 

SUB 7000: IF GU=1 THEN 6565 

6575 GU=0;R=13:C=DC:L=1J3;VN=5:GO 

SUB 7000: IF GU=1 THEN 6570 

6580 GU=0:FL(3)=1:GOSUB 7150 :GOS 

UB 7040:R=14:C=DC:L=7:VNN=6:GOSU 

B 7000: IF GU=1 THEN 6575 

6585 GU=0:R=15:C=DC;L=14:VN=7:GO 

SUB 7000: IF GU=1 THEN 6580 

6590 GU=0:R="16:C=DC:L=25:VN=8:GO 

SUB 7000: IF GU=1 THEN 658 5 

6595 GU-0:R=17:C=DC:L=25:VN=9:GO 

SUB 7000! IF GU=1 THEN 6590 

6600 RETURN 

6605 ' — INPUT LIMIT SUB-ROUTINE 

6610 S$="" 
6615 M=L+C 
6620 LOCATE C,R 
6625 P=C-1 

6630 LOCATE F+l,R:GOSUB 7190 
6635 IF IKS=CHRS{9) THEN 6630 
6640 IF IKS=" n " THEN UA=1 : RETURN 
6645 IF IKS-CHRS[8) AND P=[C-1) 
THEN SS="":GOTO 6630 ELSE IF IK 
S=CHR$(8) THEN LOCATE P,R:ATTR 3 
,0: PRINT" ";: LOCATE P-1,R:P=P-1: 
S$=MIDS(S$,1,LEN(SS)-1) :GOTO 663 


For quicker reference, Corrections will be posted on 
Delphi as soon as they are available in the Info on 
Rainbow topic area of the database. Just type DRTfi 
at the CoCo S1G> prompt and INFD at the TOPIC> 
prompt. 
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MicroWorld 



D 



CD + 



AFFORDABL 



CoCo IM 
Drive 
Drive (NEW) 


$145 
$175 
$199 


CM-8 Monitor 
Deluxe Joystick 


$248 

$ 24 


Mouse 

Joysticks (pair) 


$40 
$13 


Disk storage box (50) 
CCR-81 Cass. Rec. 


$12.50 
$42 



Disks (SS) 
Disks (DS) 



$7.00/box 
$7.50/box 



"Includes free library case 



DMP-106 Special Offer $145 
DMP-130A (120 CPS) $265 
DMP-440 $545 



Special 
Tandy 1 000 SX Offer $499 
Tandy 1000 HX $555 

Tandy 1000 TX $899 



VM-4 Monitor 

CM-5 Monitor 

CM-11 Monitor 



$ 99 
$240 
$325 



I 



CoCo 3 512K Upgrade 
MultiPak Upgrade (26-3024) 
MultiPak Upgrade (26-3124) 
OS-9 Level 2 



$130 
$ 10 
$ 10 
$ 63.95 



Mi n imum Order $1 5 . 00 



Please Note - Our ads are submitted 
early, so prices are subject to change!'! 
We appreciate your cooperation Si 

understanding in this matter 



Method of Payment; 

MC. Visa. Am.Ex. *■ Sorry, No Citiline* 

Certified Check or Money Order. 

Persona^ Checks - Allow 1 week to clear! 



sms® s»i&a<§£ ikasir ^^^aJL^M,® 



* Full TANDY 

Warranty 

* 10036 TANDY 

PRODUCTS 



==> CALL <== 

In Pa: 
215 863-8911 

In N.J. : 



* FREE UPS Shipping 201 735-6138 
ton orders over $50.00 
under $50 add $2.00 



an 



COMPUTER CENTER 



y MicroWorld J 

230 Mooratown Road, Wind Gap, PA 18091 
laneco Plaza, Clinton, N.J. 08809 



C.O.D. ADD $5.00 

ALL PRICES INCLUDE SHIPPING t! I ! 

(In Continental US) 

lOO^ TANDY EQUIPMENT WITH FULL 
RADIO SHACK WARRANTY 



\S 100 



150 
260 . 
320 . 
430 . 
540 . 
END 



.249 
.103 
. .147 
...55 
...97 
...47 
.101 



The listing: RECIPES 

10 ' RECIPE FILER 

20 ' BY BRAD SPENCER 

30 CLEAR 2000:DIM W$(30) 

40 CLS :PRINT@41, "RECIPE FILER" :P 

RINT@96,"1> ENTER RECIPE" : PRINT 

"2> LIST RECIPE": PRINT "3> PRINT 

RECIPE": PRINT "4> SAVE RECIPE": 
PRINT "5> LOAD RECIPE" : PRINT "6> 

EDIT RECIPE" :PRINT@352, "SELECT 
(1-6) :"; 

50 AS=INKEY$:IF A$="" THEN 50 
60 IF A$<>"1" AND A$<>"2" AND A$ 
<>"3" AND A$<>"4" AND A$<>"5" AN 
D A$<>"6" THEN 50 ELSE ON VAL(A$ 
) GOTO 80,180,230,370,440,520 
70 ' ENTER RECIPE 

80 CLS :PRINT@9, "ENTER RECIPE": PR 
INT@64, "CATEGORIES: ": PRINT "1> B 
ROWNIES": PRINT "2> CAKES": PRINT 
"3> COOKIES": PRINT "4> DESSERTS" 
:PRINT "5> MAIN DISHES" : PRINT "6 
> MEATS": PRINT "7> PASTRY" : PRINT 

"8> SALADS" : PRINT "9> SOUPS": PR 
INT "10> OTHER" 
90 INPUT "CHOOSE ( 1-10) : " ;CA$ : IF 

VAL(CA$)>10 THEN 90 ELSE IF VAL 
{CA$)=10 THEN 130 ELSE CLS: PRINT 
S9, "ENTER RECIPE": PRINTS 64, "LIMI 
T OF 30 LINES .": PRINT "(44 CHARA 
CTERS OR LESS)": PRINT :LI=1:X=1:G 
OTO 140 

100 PRINT LI;"> ";:LINE INPUT "" 
;W$(X):IF LEN(W$(X))>44 THEN PRI 
NT "TOO MANY CHARACTERS !": GOTO 1 
00 ELSE 110 

110 IF W$(X)="END" THEN 40 ELSE 
IF LI>29 THEN 120 ELSE LI=LI+1:X 
=X+l:GOTO 100 
120 LI=LI+1: PRINT "NO MORE LINES 

LEFT.": FOR D=l TO 1000: NEXT D:G 
OTO 40 

130 INPUT "NAME OF CATEGORY" ; CB$ 
:IF LEN(CB$)>13 THEN PRINT "13 C 
HARACTERS OR LESS !": GOTO 130 ELS 
E CLS :PRINT@9, "ENTER RECIPE": PRI 
NT@64, "LIMIT OF 30 LINES ,": PRINT 

"(44 CHARACTERS OR LESS )": PRINT 
:LI=l:X=l:GOTO 100 



140 IF CA$="1" THEN CB$="BROWNIE 

S" ELSE IF CA$="2" THEN CB$="CAK 

ES" ELSE IF CA$="3" THEN CB$="CO 

OKIES" ELSE IF CA$="4" THEN CB$ = 

"DESSERTS" ELSE IF CA$="5" THEN 

CB$="MAIN DISHES" ELSE IF CAS="6 

" THEN CB$ = "MEATS" ELSE 150 

150 IF CA$="7" THEN CB$=" PASTRY" 

ELSE IF CA$="8" THEN CB$="SALAD 

S" ELSE IF CA$="9" THEN CB$="SOU 

PS" ELSE IF CA$<>"1" AND CA$<>"2 

" AND CA$<>"3" AND CA$<>"4" AND 

CA$<>"5" AND CA$<>"6" AND CA$<>" 

7" AND CA$<>"8" AND CA$<>"9" THE 

N CB$= M BROWNIES" 

160 GOTO 100 

170 ' LIST RECIPE 

180 CLS:PRINT@10,"LIST RECIPE" :P 

RINTS64, "CATAGORY: " ; CB$ : PRINT : I 

F LI=30 THEN 200 

190 FOR 1=1 TO LI-1: PRINT W$(I): 

FOR D=l TO 400: NEXT D:NEXT I: GOT 

O 210 

200 FOR 1=1 TO LI -.PRINT W$(I):FO 

R D=l TO 400 -.NEXT D : NEXT I 

210 PRINT :PRINT(§452, "PRESS ANY K 

EY TO RETURN"; :A$=INKEY$: IF A$=" 

" THEN 210 ELSE GOTO 40 

220 ' PRINT RECIPE 

230 CLS: PRINTS 9, "PRINT RECIPE" :P 

RINT0228, "PRESS <CLEAR> TO PRINT 
ii 

240 A$=INKEY$:IF A$=*CHR$(12) THE 

N 250 ELSE 240 

2 50 CLS:PRINT@2 34, "PRINTING. . . ": 

PRINT#-2 , " ■ : P 

RINT#-2,"! \":P 

RINT#-2,"!";TAB(4) ,-CB$ ;TAB(20) ;" 
\" :PRINT#-2, "! 
\":PRINT#-2,"! 

ii 

260 PRINT#-2,"!";TAB(50) ;"!":IF 

LI>16 THEN 310 

270 FOR 1=1 TO LI-l:PRINT#-2,"! 

" ;W$(I) ; TAB (50) ; " !":NEXT I : IF L 
1=1 THEN LM=15 ELSE IF LI=2 THEN 

LM=14 ELSE IF LI=3 THEN LM=13 E 
LSE IF LI=4 THEN LM=12 ELSE IF L 
1=5 THEN LM=11 ELSE IF LI=6 THEN 

LM=10 ELSE IF LI=7 THEN LM=9 EL 
SE IF LI=8 THEN LM=8 
2 80 IF LI=9 THEN LM=7 ELSE IF LI 
=10 THEN LM=6 ELSE IF LI=11 THEN 

LM=5 ELSE IF LI=12 THEN LM=4 EL 
SE IF LI=13 THEN LM=3 ELSE IF LI 
=14 THEN LM=2 ELSE IF LI=15 THEN 

LM=1 ELSE IF LI=16 THEN 300 
290 FOR 1=1 TO LM:PRINT#-2,"!";T 
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AB(50) ;"!":NEXT I 

300 PRINT#-2,"!";TAB(50) ;" ! " : PRI 

NT#-2," • 

, ":GOTO 

40 
31J3 FOR 1=1 TO 15:PRINT#-2," ! " 
;W$(I) ; TAB (50) ;"!" :NEXT I: PRINT* 
-2 , " ! " ; TAB (5JB );"!": PRINT# -2 , " 

1» . print#-2 , " ! " ;T 

AB(50) ;"!" 

320 FOR 1=16 TO LI-1 :PRINT#-2 , " ! 
";W$(IJ ;TAB(50) ;"!":NEXT I: IF 
LI=17 THEN LM=14 ELSE IF LI=18 T 
HEN LM=13 ELSE IF LI=19 THEN LM= 
12 ELSE IF LI=20 THEN LM=11 ELSE 

IF LI=21 THEN LM=10 ELSE 
3 3 IF LI=23 THEN LM=8 ELSE IF L 
1=24 THEN LM=7 ELSE IF LI=25 THE 
N LM=6 ELSE IF LI=2 6 THEN LM=5 E 
LSE IF LI=27 THEN LM=4 ELSE IF L 
1=28 THEN LM=3 ELSE IF LI=29 THE 
N LM=2 ELSE IF LI=30 THEN LM=1 E 
LSE IF LI=31 THEN 300 
340 FOR 1=1 TO LM: PRINT#-2 , " 1 " jT 
AB(50) ;" ! ":NEXT I 
350 GOTO 3,0,0 

3 60 ' save recipe 

370 cls : prints 10, "save recipe" :p 

rint:line input "name of file: ■ 

;f$ 

380 print@228, "press <enter> to 

save." :a$=inkey$:if a$=chr$(13) 

then 390 else 380 

390 cls: prints 2 3 4, "saving. . .":op 

en "0",#1,f$: print "category: " ;c 

b$:write #1,cb$:if li=30 then 41 

P 

400 FOR 1=1 TO LI-1: WRITE #1,W$( 

I) :NEXT I: GOTO 420 

4XJ> FOK I - ~l TO LI: WRITE #1,W$(I) 

:NEXT I 

420 CLOSE #1: PRINT "GOT IT!": FOR 



D=l TO 500: NEXT D:GOTO 40 
430 ' LOAD RECIPE 

4 40 CLS: PRINT© 10, "LOAD RECIPE" :P 
RINT:LINE INPUT "NAME OF FILE: " 

;F$ 

450 PRINT@228, "PRESS <ENTER> TO 

LOAD." :A$==INKEY$:IF A$=CHR$(13) 

THEN 4 60 ELSE 4 50 

460 CLS :PRINT@233, "LOADING. . . " : 

PEN H I" # #l l F$:LI=l: INPUT #1,CB$: 

PRINT "CATEGORY: ";CB$ 

470 IF EOF(l) THEN 490 

480 INPUT #1,W$(LI) :PRINT W$(LI) 

:LI=LI+l:GOTO 470 

4 90 CLOSE #1:PRINT: PRINT "GOT IT 

I " : PRINT 

500 PRINT© 4 5 2, "PRESS ANY KEY TO 

RETURN" :A$=INKEY$: IF A$="" THEN 

500 ELSE 40 

510 ' EDIT RECIPE 

520 CLS: PRINT@10, "EDIT RECIPE" :P 

RINT@64, "OPTIONS: ":PRINT@128, "1> 
CHANGE CATEGORY": PRINT "2> EDIT 
A LINE" : PRINT© 2 2 4, "SELECT: " 

530 A$=INKEY$:IF A$="l" THEN 540 
ELSE IF A$="2" THEN 550 ELSE 53 



540 CLS: PRINT "OLD CATEGORY: ";C 

B$:LINE INPUT "NEW CATEGORY: ";C 

B$:GOTO 40 

550 CLS: IF LI=30 THEN 570 

560 FOR 1=1 TO LI-1: PRINT I;") " 

;: PRINT W$(I):FOR D=l TO 400:NEX 

T D:NEXT I: GOTO 580 

570 FOR 1=1 TO LI: PRINT I;") ";: 

PRINT W$(I):FOR D=l TO 400: NEXT 

D:NEXT I 

580 PRINT: LINE INPUT "WHICH LINE 

:";L$:IF VAL(L$)>30 THEN 580 

590 PRINT L$;"> " ;W$ (VAL(L$) ) : PR 

INT L$ ; "> " ; : LINE INPUT " " ; W$ (VA 

L(L$)) 

600 GOTO 40 
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| 128K BASIC COCO 3 PI SK or CASSETTE 

||THE DIRECTOR Produce hires picture, 
sound and Color Animation shows! Completely 
menu driven with full editing. Includes extra 
programs to Convert most hires pictures, and 
to Share your shows with others! Great for 
presentations and VCR's! Requires predrawn 
pictures. SAVE $10 Now only.... $29.95 

c2/ MY ARTIST Draw and Paint pictures 
in all A hires 320 & 640 by 192 modes with 
up to 16 colors and 64 hues! Simple, but 
Powerful keyboard & joystick commands for 
undistracted, Full Screen drawings! Fast 
ML save & load $14.95 

SAVE $15 Both the above... $39.9 5 



128/5 12 K OS-9 L2 COCO 3 DISK 




$ ECONOMIS 

Analysis to compar 
and income alterna 
Present and Future 
for various combin 
series and gradien 
Quickly edit and r 
tivity Analysis! D 
Printout data and 
Menus, Windows and 
OS-9 L2 & BASIC09. 






T Perform Economic 
e different cost 
tives! Compute 

Life Cycle Worths 
ations of single, 
t dollar amounts, 
ecompute for Sensi- 
isplay line graphs. 
results. Pull-Down 
Prompts ! Requires 
$29.95 



^-^ 



Send check or 
Please add $2 shi 
SEESOF PO Box 574, 



money order, 
pping & handling. 
Beaufort, SC 29901 
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1 F e ature 

A "personal finance tool box" to help 
manage your resources 



Financial Time Conversions 



By Dale Tinklepaugh 
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Money is a subject of vital inter- 
est to most people. And while 
there is more to life than the 
acquisition of wealth, there is nothing 
wrong with managing our financial 
resources wisely. 

Good management requires accurate 
knowledge upon which to base deci- 
sions. To compare investment or financ- 
ing alternatives, it is necessary to com- 
pare their value or cost at the same point 
in time. This article describes a program 
that performs the types of time conver- 
sions needed to do these comparisons. 

Dale Tinklepaugh is a software engineer 
for Hughes Aircraft Radar Systems 
Group and is pursuing a master 's degree 
in computer engineering at USC. 
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The program begins with a main 
menu and four entries: Present Value, 
Uniform Series Value, Future Value and 
Interest Rate Conversions. To compute 
a present dollar amount, select the first 
menu entry by pressing the 1 key and 
then ENTER. A secondary menu then 
pops up, allowing conversion from a 
uniform series, a gradient series, a 
proportional series, or a future amount. 

Similarly, the second and third main 
menu selections allow you to convert to 
uniform series values and future values, 
respectively. The fourth main menu 
selection allows you to convert between 
nominal annual and effective annual 
interest rates. 

Present Value of Uniform Series 

A uniform series is a set of equal 
payments for a number of time periods 
at a given rate of interest. Conversion 
from a uniform series to a present value 
is useful for determining how much 
money can be borrowed at a certain 
interest rate without overrunning your 
budget. 

For example, consider Harvey and 
Bridget, a couple who want to purchase 
a house. They can afford payments of 
$900 per month. After choosing the 
Uniform Series option in the Present 
Value menu, the couple would be 
prompted for the number of payment 
periods. For a 30-year loan, they would 
have 30 x 12 = 360 payment periods. 
After entering 3G0 they would be 
prompted for the interest rate per 
period. If the prevailing nominal annual 
interest rate were 12 percent, the peri- 
odic rate would be 12% / 12 = 1%. After 
entering 1 they would be prompted for 
the periodic amount, for which they 
would enter 900. 

The result is $87,496.50. So, depend- 
ing on the amount of cash they have 
available for the down payment and 
closing costs, they can look at houses 
worth up to $90,000 or $95,000. 

Note that in arriving at the monthly 
amount they can afford for a mortgage 
payment, the couple had to remember 
that there are other ownership costs 
besides the mortgage. Most significant 
are taxes and insurance. For an older 
home they would also want to budget 
a certain amount for maintenance and 
renovation. On the other side of the 
budgetary scale is the federal income 
tax savings resulting from interest 
payments and property taxes. 



Present Value of Gradient Series 

The next option in the Present Value 
menu, Gradient Series, begins with a 
payment of $0 and increases by a fixed 
amount each period. 

An example involving a gradient 
series is the calculation of the present 
value of the anticipated maintenance 
costs for an automobile. Suppose the 
owner's records indicate repair costs 
now average nearly $50 a month and 
seem to be increasing at about $2 per 
month. How much money would the 
owner have to put into his 7 percent 
savings account in order to cover all 
anticipated repairs for the next four 
years? 

The costs can be broken into two 
parts. First, there is a uniform series of 
$50 per month for 48 months at 7 
percent annual or 0.583 percent 
monthly interest. This part can be 
solved in the same manner as the exam- 
ple above. To cover the $50 per month, 
the program tells us the owner needs 
52,088,17 in his savings account. 

Second, there is a gradient series for 
48 months, increasing by $2 a month. 
The program will ask for the periodic 
increase instead of a periodic amount as 
in the uniform series. The present value 
of this gradient series is $1,869.82. The 
total the owner would need to deposit 
is $3,957.99. 

The confidence in the program out- 
put should be no greater than the 
confidence in the input data. The last 
example was done using estimates of 
unknown reliability. The actual costs 
could be much different for this partic- 
ular car than would be predicted on the 
basis of its prior performance or of the 
performance of other cars of the same 
make. 

If this were the owner of a fleet of 
taxicabs or commercial trucks, how- 
ever, the chance variations in cost 
would tend to average out for the group. 
Therefore, the owner can know the 
present cost of maintaining his fleet and 
compare that with the cost of replacing 
it. 

Present Value of Future Amount 

An example of conversion of a future 
amount to a present amount involves 
the future trade-in value of a car. Har- 
vey has learned that the kind of car he 
wants typically depreciates about 75 
percent in four years. If that car lists for 
$10,000 today, it will be worth about 



$2,500 after four years of average use. 
To see how $2,500 four years from now 
compares with $2,500 now, evaluate the 
present value of $2,500 at 9 percent 
annual interest for 48 months. The 
interest rate should be that paid by an 
investment that could be made if the 
money were not tied up in the car. The 
monthly interest rate is .09/12 = .75 
percent. The correct answer is 
$1,746.54. 

Uniform Series Value of a Present Sum 

To determine the monthly payment 
for a loan, choose the Uniform Series 
Value of a Present Sum. This option can 
be used for annuities or other types of 
transactions, also. It has been labeled 
"Loan" because that is its most likely 
use. After the number of payment 
periods, interest rate per period and 
initial amount are entered, the program 
displays the uniform payment amount. 

For example, the monthly payment 
on the $10,000 car mentioned above is 
computed by selecting Option 2, Uni- 
form Series Value, from the main menu 
and then selecting Option 1, Present 
Sum (Loan), from the secondary menu. 
Enter 4B for the number of pay periods, 
1 for the interest rate per period and 
B000 for the initial amount (allowing 
for $2,000 down). The uniform monthly 
payment displayed is $210.67. 

Present Value of a Proportional Series 
A proportional series is one in which 
the ratio of each payment to its prede- 
cessor is constant. One application for 
this conversion is the calculation of the 
present worth of a person's estimated 
lifetime earnings. 

For example, Harvey will earn 
$25,000 this year and expects raises to 
average about 5 percent a year. Since he 
is 25 years old, he expects to work 40 
more years before retiring. He goes to 
his computer, runs this program, and 
selects Present Value of a Proportional 
Series. 

When the program asks for the 
number of periods, he enters 40. The 
interest rate per period should be a rate 
that could be earned by a prudent but 
not overly cautious investor. Here we 
are talking about investing a large sum 
such as a life insurance settlement or 
court judgment based on permanent 
disability. We would not expect it all to 
be deposited in a passbook savings 
account. Harvey decides that 10 percent 
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would be reasonable and enters 10. For 
rate of increase he enters 5. Next, he 
enters the first period amount, 25000. 
The program displays the answer, 
$422,225.98. 

It is interesting to note the effects of 
varying the interest rate and rate of 
annual increase on the answer. A higher 
interest rate reduces the answer, and a 
higher annual raise increases it. 

Interest Rate Conversions 

There are two kinds of annual interest 
rates, nominal and effective. They are 
the same if the interest is compounded 
once a year. If not, the effective annual 
rate is derived as in the following 
example: If the nominal annual rate is 
18 percent, the monthly rate is .18/12 
= 1.5 percent. The effective rate is 
obtained by computing (1.015*12)-] = 
19.56181715%, which is the equivalent 
interest rale with annual compounding 

To get the above result using the 
program, select the Nominal to Effec- 
tive conversion, enter 12 for the number 
of compounding periods, and enter IB 
for the nominal annual rate. 

This can be checked by selecting the 
Effective to Nominal conversion and 
entering 12 and 19.5G1B1715 when 
prompted. The answer is 18. Com- 
pounding may be less frequent (quar- 
terly) or more frequent (daily). A special 



case is called continuous compounding. 
For this case, entering for the number 
of compounding periods peryear causes 
the program to branch to use a different 
formula from that used for a finite 
number of periods. 



UNIFORM SERIES VALUE OF 
PRESENT SUM 

NUMBER OF PERIODS? 120 
INTEREST RATE/ PERIOD (%)? 
PRESENT SUM? 12000 
UNIFORM VALUE IS: 

$155.93 
DO ANOTHER <Y OR N)? 



FUTURE VALUE OF PRESENT SUM 

NUMBER OF PERIODS? 96 
INTEREST RATE/PERIOD? .6 
PRESENT SUM? 1000 
FUTURE VALUE IS! 

$1775.85 
DO ANOTHER (Y OR N>? 



Summary 

The rest of the conversion options are 
similar to those we have discussed, and 
involve the same concepts. This pro- 
gram is intended to be your personal 
finance tool box. You can customize 
any or all subroutines for your personal 
use. The program has been written more 



for readability and flexibility at the 
expense of memory, By leaving out 
comments and combining more state- 
ments onto one line, it should be pos- 
sible to squeeze this program into 16K. 
If you do this, you will need to delete 
H4000+ from lines 105 and 125, and 
change H7F00 to H3F00 in Line 140. 
You may want to check your printer 
status directly instead of asking the user. 
The program is written for the DMP- 
105 printer from Radio Shack. The 
baud rate is set to 2400 in Line 107. 

If you want to do only one or two of 
the conversions, you can type in just the 
relevent sections of the program. Com- 
ments are included in the program 
listing to identify subroutine functions. 
The mathematical formula for each 
conversion is usually accomplished in 
two or three program lines, so these 
subroutines should be easy to customize 
to your system and applications. 

(Questions or comments may be 

directed to the author at 14684 Joshua 

Tree Ave., Sunnymead. CA 92388. 

Please enclose an SASE when writing 

for a reply.) □ 
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,0, &H2B, &HE3 , &H7F,0, &H6F, &H39 

12 5 FOR I=&H4000+1612 8 TO &H4000 




I J 




V 


205 . . .174 2840 214 








+16128+40 




1020 142 3050 178 




1290 .....186 3420 31 


130 READ A: POKE I, A 




1460 103 3640 179 


135 NEXT I 




1675 117 4315 201 


140 DEFUSR0=&H7F00 




1815 193 4620 15 


142 CLS:PRINT"ARE YOU USING A PR 




2090 24 END 225 


INTER? (Y OR N)"; 




2600 192 


143 Q$=INKEY$:IF Q$="" GOTO 143 
145 IF Q$="Y" THEN QQ«1 ELSE QQ= 



147 PRINT 


The listing: FINRt 


CE 




150 IF QQ=1 THEN PRINT "TYPE P T 


100 ■ FINANCIAL TIME VALUE CONVE 


O PRINT RESULTS AFTER A CONVERSI 


RSIONS 


ON, THEN TYPE Y OR N AS" : PRINT"P 


105 CLEAR 200,&H4000+16127 ' SAV 


ROMPT REQUESTED. " : PRINT: PRINT "HI 


E SPACE FOR TEXT DUMP CODE 


T ANY KEY TO CONTINUE" 


107 POKE 150,18 'SET PRINTER TO 


170 IF QQ-1 THEN A$=INKEY$:IF A$ 


2 400 


=""GOTO 170 


108 ' TEXT DUMP ROUTINE 


205 F1$="$$#######.##":P$="PRESE 


110 DATA &H8 6,&HFE,&HB7,0, &H6F,& 


NT VALUE IS: " ;U$="UNIFORM VALUE 


H8E,4,0 I &H5F,&H5C,&HA6,&H80,&H81 


IS: ":F$=" FUTURE VALUE IS: " 


,&H60 


210 CLS 


115 DATA &H2B,2,&H84,&HBF,&HAD,& 


230 PRINT! 5, "FINANCIAL CONVERSIO 


H9F, &HA0, 2 , &HC1 , &H20 , &H2B, &HEF, & 


NS" 


H86,SH0D 


240 PRINT @ 70," BY DALE TINKLEPAUG 


120 DATA &HAD,&H9F,&HA0,2,&H8C,6 


H" 
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2 50 PRINT @ 131, "SELECT CONVERSION 

RESULT" 
260 PRINT@197,"1 PRESENT VALUE" 
270 PRINT@229,"2 UNIFORM SERIES 
VALUE" 

280 PRINT@261,"3 
290 PRINTS 2 9 3," 4 



FUTURE VALUE" 
INTEREST RATE" 



SUM" 
TO MAIN 



300 PRINT@385, "PRESS A NUMBER BE 

TWEEN 1 AND 4" 

310 A$=INKEY$:IF A$=""GOTO 310 

3 20 CASE=INSTR(1,"1234",A$) 

3 30 ON CASE GOSUB 1000 , 2000, 300J3 

,4000 

3 40 GOTO 210 

1000 'MENU FOR PRESENT VALUE 

1010 CLS 

1020 PRINT@64, "WHICH WOULD YOU L 

IKE TO CONVERT" 

1030 PRINT@96,"TO A PRESENT VALU 

E?" 

1040 PRINT@165,"1 UNIFORM SERIES 
ii 

1050 PRINT@197,"2 GRADIENT SERIE 

S" 

1060 PRINT@229, "3 PROPORTIONAL S 

ERIES" 

1070 PRINT@261,"4 FUTURE 

1080 PRINT@293,"5 RETURN 

MENU" 
1090 PRINT© 3 8 5," PRESS A NUMBER B 
ETWEEN 1 AND 5" 

1100 A$=INKEY$ : IF A$=""GOTO 1100 
1110 IF A$="5" THEN RETURN 
1120 CASE=INSTR{1, "1234", A$) 
1130 ON CASE GOSUB 1200,1400,160 
0,1800 

1140 GOTO 1000 

1200 'PRESENT VALUE OF UNIFORM S 
ERIES 
1210 CLS 

1215 PRINT"PRESENT VALUE OF UNIF 
ORM SERIES": PRINT 
1220 INPUT"NUMBER OF PERIODS" ;N 
1230 INPUT "INTEREST RATE/PERIOD 
(%)";IP 
1240 I=IP/100 

1250 INPUT "PERIODIC AMOUNT" ; A 
1260 Q=(1+I} A N 
1270 PA=(Q-1)/(I*Q) 
1280 P*=PA*A 
1285 PRINT P$ 
1290 PRINT USING F1$;P 
1300 PRINT"DO ANOTHER? (Y OR N) " 

■ 

1305 A$=INKEY$:IF A$=""GOTO 1305 
1307 IF A$="P" AND QQ=1 THEN A=U 
SR0 (0 ) 

1310 IF A$="Y" THEN GOTO 1210 EL 
SE IF A$="N" THEN RETURN ELSE GO 
TO 1305 
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1400 'PRESENT VALUE OF GRADIENT 

SERIES 

14J35 CLS 

1407 PRINT" PRESENT VALUE OF GRAD 

IENT" : PRINT" SERIES" : PRINT 

1410 INPUT"NUMBER OF PERIODS", -N 

1415 INPUT "INTEREST RATE/PERIOD 

(%)";IP 

1420 I=IP/100 

142 5 INPUT" PERIODIC INCREASE ($) 

";G 

1430 Q=(1+I) A N 

1435 A=(Q-1)/(I*Q) 

14 40 B=N/Q 

1445 R=(A-B)/I 

1450 P=R*G 

14 5 5 PRINT P$:PRINTUSING F1$;P 

1460 PRINT"DO ANOTHER? (Y OR N) " 

1462 A$=INKEY$:IF A$="" THEN GOT 

1462 

1463 IF A$= I, P" AND QQ=1 THEN A=U 
SR0(0) 

1464 IF A$="Y" AND QQ=1 THEN 140 
5 ELSE IF A$="N" THEN RETURN ELS 
E GOTO 14 62 

14 65 RETURN 

1600 'PRESENT VALUE OF PROPORTIO 

NAL SERIES 

1605 CLS 

1607 PRINT "PRESENT VALUE OF PROP 

ORTIONAL" : PRINT "SERIES" : PRINT 

1610 INPUT "NUMBER OF PERIODS", 'N 

1615 INPUT"INTEREST RATE/PERIOD ( 

%)";IP 

1620 I=IP/100 

1625 INPUT "RATE OF INCREASE (%) " 

;RP 

1630 R=RP/100 

1635 INPUT"FIRST PERIOD AMOUNT"; 

C 

1640 Q=I+1 

1645 IF R=I THEN 1705 ELSE IF R< 

1 THEN 167 5 ELSE 1650 
1650 ' R>I 

1655 X=((l+R)/Q)-1 

1660 FA=( ((X+1) A N)-1)/X 

1665 PC=FA/Q 

1670 GOTO 1715 

1675 ' R<I 

1630 X=(Q/(1+R) )-l 

1685 QX=(1+X) A N 

1690 PA=(QX-1}/(X*QX) 

1695 PC=PA/(1+R) 

1700 GOTO 1715 

1705 ' R=I 

1710 PC=N/Q 

1715 ' FINAL COMPUTATION 

1720 P=C*PC 

1725 PRINT P$:PRINTUSING F1$?P 

1727 PRINT"DO ANOTHER? (Y OR N) " 



1730 A$=INKEY$:IF A$=""THEN GOTO 

1730 
1732 IF A$="P" AND QQ=1 THEN A=U 
SR0(0) 

1734 IF A$="Y" THEN GOTO 1605 EL 
SE IF A$="N" THEN RETURN ELSE GO 
TO 1730 

1735 RETURN 

1800 'PRESENT VALUE OF FUTURE SU 

M 

1805 CLS 

1807 PRINT "PRESENT VALUE OF FUTU 

RE SUM" : PRINT 

1810 INPUT "NUMBER OF PERIODS" ;N 

1815 INPUT" INTEREST RATE/PERIOD 

(%)";IP 

1820 I=IP/100 

1825 INPUT"FUTURE SUM";F 

1830 PF=1/(1+I) A N 

1835 P=F*PF 

1840 PRINT P$ : PRINTUSING F1$;P 

1842 PRINT"DO ANOTHER? (Y OR N) " 

184 5 A$=INKEY$:IF A$="" THEN GOT 

O 1845 

184 7 IF A$="P" AND QQ-1 THEN A=U 

SR0(0) 

1849 IF A$="Y" THEN GOTO 1805 EL 

SE IFA$="N" THEN RETURN ELSE GOT 

O 1845 

2000 'MENU FOR UNIFORM SERIES VA 

LUE 

2010 CLS 

2020 PRINTS 64, "WHICH WOULD YOU L 

IKE TO CONVERT" 

2030 PRINT@96,"TO A UNIFORM SERI 

ES VALUE?" 

2040 PRINT@16 5, "1 PRESENT SUM (L 

OAN) " 

2050 PRINT@197,"2 GRADIENT SERIE 

S" 

2060 PRINT<§22 9,"3 FUTURE SUM" 

2070 PRINT@2 61,"4 RETURN TO MAIN 

MENU" 
2080 PRINT@353,"PRESS A NUMBER B 
ETWEEN 1 AND 4" 

2090 A$=INKEY$:IF A$=""GOTO 2090 
2100 IF A$="4" THEN RETURN ELSE 
CASE-INSTR(1, "12 3",A$) 
2110 ON CASE GOSUB 2200,2 600,2 80 



2120 GOTO 2000 

2 200 'UNIFORM SERIES VALUE OF PR 

ESENT SUM 

2205 CLS 

2 207 PRINT"UNIFORM SERIES VALUE 

OF PRESENT" : PRINT"SUM" : PRINT 

2210 INPUT"NUMBER OF PERIODS" ;N 

2 215 INPUT "INTEREST RATE/PERIOD 

(%)";IP 
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2220 I=IP/100 

2225 INPUT "PRESENT SUM";P 

2230 Q=(1+I) A N 

2235 R=I*Q/(Q-1) 

22 40 A=R*P 

2245 PRINT U$ : PRINTUSING F1$;A 

2247 PRINT"DO ANOTHER (Y OR N)?" 

2250 A$=INKEY$:IF A$="" THEN GOT 

O 2250 

2252 IF A$="P" AND QQ=1 THEN A=U 

SR0(0) 

2255 IF A$="Y" THEN GOTO 2250 EL 

SE RETURN 

2 600 'UNIFORM SERIES VALUE OF GR 

ADIENT SERIES 

2605 CLS 

2 607 PRINT"UNIFORM SERIES VALUE 

OF GRADIENT" : PRINT" SERIES" : PRINT 

2610 INPUT "NUMBER OF PERIODS", 'N 

2 615 INPUT"INTEREST RATE/PERIOD 

(%)";IP 

2620 I=IP/100 

2625 INPUT"PERIODIC INCREASE" ;G 

2630 AG=(1/I)-N/(((1+I) A N)-1) 

2635 A=G*AG 

2640 PRINT U$: PRINTUSING F1$;A 

2645 PRINT"DO ANOTHER (Y OR N)?" 

■ 

2650 A$=INKEY$:IF A$="" GOTO 265 

P 

2652 IF A$="P" AND QQ=1 THEN A=U 

SR0(0) 

2655 IF A$="Y" THEN GOTO 2605 EL 

SE IF A$="N" THEN RETURN ELSE GO 

TO 2650 

2 800 'UNIFORM SERIES VALUE OF FU 

TURE SUM 

2 805 CLS 

2 807 PRINT "UNIFORM SERIES VALUE 

OF FUTURE" : PRINT "SUM" : PRINT 

2810 INPUT"NUMBER OF PERIODS" ;N 

2 815 INPUT" INTEREST RATE/ PERIOD 

(%) ";IP 

2820 I=IP/100 

2825 INPUT"FUTURE SUM";F 

2830 AF=I/(((1+I) A N)-1) 

283 5 A=AF*F 

28 40 PRINT U$: PRINTUSING F1$;A 

2845 PRINT"DO ANOTHER (Y OR N)?" 

• 

2850 A$=INKEY$:IF A$="" GOTO 285 

2852 IF A$="P"AND QQ=1 THEN A=US 

R0{0) 

2855 IF A$="Y" THEN GOTO 2805 EL 

SE IF A$="N" THEN RETURN ELSE GO 

TO 2850 

3000 'MENU FOR FUTURE VALUE 

3005 CLS 

3010 PRINT@64,"WHICH WOULD YOU L 

IKE TO CONVERT" 

3015 PRINT@96,"TO A FUTURE VALUE 



-p if 

3020 PRINT@165,"1 PRESENT SUM" 

3025 FRINT@197,"2 UNIFORM SERIES 
ii 

3030 PRINT@229,"3 GRADIENT SERIE 

S" 

3035 PRINT@261,"4 RETURN TO MAIN 

MENU" 
3040 PRINT @ 3 5 3, "PRESS A NUMBER B 
ETWEEN 1 AND 4" 

3045 A$=INKEY$:IF A$=""GOTO 3045 
3050 IF A$="4" THEN RETURN ELSE 
CASE=INSTR(1,"12 3",A$) 
3055 ON CASE GOSUB 3200,3400,360 

j3 

3060 GOTO 3000 

3 200 'FUTURE VALUE OF PRESENT SU 

M 

3 205 CLS 

3 207 PRINT" FUTURE VALUE OF PRESE 

NT SUM" : PRINT 

3210 INPUT"NUMBER OF PERIODS" ;N 

3215 INPUT"INTEREST RATE/PERIOD" 

;IP 

3 2 20 I=IP/100 

3225 INPUT"PRESENT SUM";P 

3230 FP={1+I) A N 

3235 F=FP*P 

32 40 PRINT F$: PRINTUSING F1$;F 
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THE SOFTWARE HOUSE 

CELEBRATING OUR 4TH YEAR MITH RAINBOW! 



DSVDD 




«45/100 
10/*4.95 



flippy disks 10/*7.95 

factory punched-use both sibes. *75/100 
certified error free. h/ sleeves, labels, h.p. 

3 1/2'disks ds/dd 10/*14.95 

printer ribbons 

epson hx/rx/fx 70/00 15.00 ea. 4/120.00 

6EHINI 10/101/36 12.00 EA. 12/122.00 

COLORS R-BR-BL-SR-PUR 13.00 EA. 5/112.00 

R.S. DHP 130 BLACK 16.95 EA. 

COLORS RED-BLUE-BRN W.K Eft. 

OTHER RIBBONS IN STOCK-CALL OR WRITE FOR QUOTE 

ALL ITEMS 100J GUARANTEED. OFFER ENDS IN 30 DAYS 



Add $2.50 S/H in U.SA. • Canada Add $3.50 + $ 1.00/LB 
Michigan Residents Add 4% Sales Tax 
Send Check/Money Order Payable to: 

THE SOFTWARE HOUSE 

9020 Hemingway, Redford, Ml 48239 

(313) 937-1313 

SendCardNumber&ExpOate M In. C h arge Order *2 0,00 

EmM0MMMOMM«OO«MONMMMM«M«1 
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3245 PRINT"DO ANOTHER (Y OR N)?" 


AL RATE TO" 


• 
f 


4060 PRINT@261," NOMINAL ANNUAL 


3250 A$=INKEY$:IF A$="" GOTO 325 


RATE" 





4070 PRINT@293,"3 RETURN TO MAIN 


3 2 52 IF A$="P" AND QQ=1 THEN A=U 


MENU" 


szpw) 


4080 PRINT@385, "PRESS A NUMBER B 


3255 IF A$="Y" THEN GOTO 3205 EL 


ETWEEN 1 AND 3" 


SE IF A$= H N" THEN RETURN ELSE GO 


4090 A$=INKEY$:IF A$=""GOTO 4090 


TO 325,0 


4100 IF A$="3" THEN RETURN ELSE 


3400 'FUTURE VALUE OF UNIFORM SE 


CASE=INSTR(1,"12",A$) 


RIES 


4110 ON CASE GOSUB 4300,4600 


3405 CLS 


4120 GOTO 4000 


3 407 PRINT "FUTURE VALUE OF UNIFO 


4300 'NOMINAL TO EFFECTIVE 


RM SERIES": PRINT 


4 310 CLS 


3410 INPUT"NUMBER OF PERIODS" ;N 


4315 PRINT"NOMINAL TO EFFECTIVE" 


3415 INPUT"INTEREST RATE/PERIOD 


: PRINT 


(%)" ;IP 


4320 PRINT "NUMBER OF COMPOUNDING 


3420 I=IP/100 


" : PRINT"PERIODS/YEAR" 


3425 INPUT" PERIODIC AMOUNT" ;A 


4340 INPUT" (FOR CONTINUOUS INPUT 


3430 FA=(((1+I) A N)-1)/I 


0)";M 


3435 F=FA*A 


4350 INPUT"NOMINAL ANNUAL RATE" ; 


3440 PRINT F$:PRINTUSING F1$;F 


IP 


3445 PRINT"DO ANOTHER (Y OR N)?" 


4355 I=IP/100 




43 60 IF M=0 THEN 4380 


3450 A$=INKEY$:IF A$ = '»" GOTO 345 


4 3 70 IA=(1+I/M) A M-l:GOTO 43 90 


fi 


4380 IA=EXP(I)-1 


3452 IF A$="P" AND QQ-1 THEN A=U 


4 3 90 PRINT"EFFECTIVE ANNUAL RATE 


SR0(0) 


IS : " : PRINTIA* 100 i " % " 


3455 IF A$="Y"THEN GOTO 3405 ELS 


4400 PRINT"DO ANOTHER (Y OR N)?" 


E IF A$="N" THEN RETURN ELSE GOT 


/ 


3450 


4410 A$=INKEY$:IF A$="" GOTO 441 


3 600 'FUTURE VALUE OF GRADIENT S 





ERIES 


4415 IF A$="P" AND QQ=1 THEN A=U 


3 605 CLS 


SR0(0) 


3607 PRINT "FUTURE VALUE OF GRADI 


4420 IF A$="Y" THEN GOTO 4310 EL 


ENT SERIES": PRINT 


SE IF A$="N" THEN RETURN ELSE GO 


3610 INPUT"NUMBER OF PERIODS", *N 


TO 4410 


3 615 INPUT" INTEREST RATE/PERIOD 


4 600 'EFFECTIVE TO NOMINAL 


(%) ";IP 


4610 CLS 


3620 I=IP/100 


4615 PRINT"EFFECTIVE TO NOMINAL" 


3625 INPUT" PERIODIC INCREASE" ;G 


: PRINT 


3630 FG=(((((1+I)-N)-1)/I)-N)/I 


4 620 PRINT "NUMBER OF COMPOUNDING 


3635 F=FG*G 


": PRINT" PERIODS/YEAR" 


3640 PRINT F$:PRINTUSING F1$?F 


4630 INPUT" (FOR CONTINUOUS, INPU 


3645 PRINT"DO ANOTHER (Y OR N)?" 


T 0) ",*M 


• 
t 


4640 INPUT "EFFECTIVE ANNUAL RATE 


3650 A$=INKEY$:IF A$=""GOTO 3650 


" ; IP 


3652 IF A$="P" AND QQ-1 THEN A=U 


4650 IA=IP/100 


SR0(0) 


4660 IF M=0 THEN GOTO 4690 


3 655 IF A$="Y" THEN GOTO 3 605 EL 


4670 I=(1+IA) A (1/M)-1 


SE IF A$="N" THEN RETURN ELSE GO 


4680 NI=I*M:GOTO 4700 


TO 3 650 


4690 NI=LOG(l+IA) 


4000 'MENU FOR INTEREST RATE CON 


4 700 PRINT"NOMINAL ANNUAL RATE I 


VERSIONS 


S : " : PRINTNI * 100 ; " % " 


4010 CLS 


4 710 PRINT "DO ANOTHER (Y OR N) ?" 


4020 PRINT@64, "WOULD YOU LIKE TO 


* 

r 


CONVERT : " 


4720 A$=INKEY$:IF A$=""GOTO 4720 


4030 PRINT@165,"1 NOMINAL ANNUAL 


4725 IF A$="P" AND QQ=1 THEN A=U 


RATE TO" 


SR0(0) 


4040 PRINT@197," EFFECTIVE ANNU 


4730 IF A$="Y"THEN GOTO 4610 ELS 


AL RATE" 


E IF A$="N" THEN RETURN ELSE GOT 


4050 PRINT@229,"2 EFFECTIVE ANNU 


4720 «\ 
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Save Time and Money with a Combination Subscrip 



SAVE up to 19%" 

when you buy a joint sub- 
scription to the magazine and 
either rainbow on tape or 
rainbow on disk! A one-year 
subscription to the rainbow 
and rainbow on tape is only 
$91 in the U.S., $108 in Can- 
ada, $153 foreign surface rate 
and $188 foreign airmail. A 
one-year subscription to the 
rainbow and rainbow on 
disk is only $115 in the U.S., 
$138 in Canada, $183 foreign 
surface rate and $218 foreign 
airmail.* 

Every month, these convenient 
services bring you as many as 24 
ready-to-run programs. Using the 
current issue of the rainbow as 
documentation, all you have to do is 
load and run them. A one-year com- 
bination subscription to the rain- 



bow and rainbow on tape or rain- 
bow on disk give you more than 230 
new programs! The typing time you 
save can be spent enjoying your 
CoCo! 



RAINBOW ON TAPE 
For No-Fuss Fun 

Back issues of rainbow on tape 
are available beginning with the 
April 1982 issue. A single copy ol 
rainbow on tape is $10 within the 
United States; U.S. $12 in all other 
countries. The annual subscription 
rate for rainbow on tape is $80 
within the U.S.; U.S. $90 in Canada; 
and U.S. $105 for all other coun- 
tries.* 



RAINBOW ON DISK 
Offers OS-9 Programs 

In addition to all the programs 
offered on tape, part of one side of 
rainbow on disk is formatted for the 
OS-9 operating system. That means 
you can now get all the OS-9 pro- 
grams from the magazine — pro- 
grams that cannot be put on tape. 
Back issues of rainbow on disk are 
available beginning with October 
1986. Subscriptions to rainbow on 
disk are $99 a year in the U.S. Cana- 
dian rate is U.S. $115. All other 
countries, U.S. $130. Single copy 
rate is $12 in the U.S.; U.S. $14 in 
Canada; and U.S. $16 in all other 
countries." 



To order by phone (credit card orders only}, call (800) 847- 
0309, 8 a.m. to 5 p.m. EST. All other inquiries call (502) 228- 
4492. 

Look for our envelope located between pages 66 and 67 for 
ordering individual subscriptions to the rainbow, rainbow on 

TAPE and RAINBOW ON DISK. 



YES! Sign me up for a joint 1-year subscription (12 issues) to: 



□ THE RAINBOW and RAINBOW ON TAPE 
D THE RAINBOW and RAINBOW ON DISK 

□ NEW □ RENEWAL (attach labels) 



Name 



Address 
City 



State 



ZIP 



Payment Enclosed □ (''payment must accompany order) 

Charge: D VISA □ MasterCard D Am. Express 
Account Number 

Signature 



Exp. 



'U.S. currency only, please. In order to hold down costs, we do not bill. Kentucky residents add 5% sales tax. Please allow 6 to 8 weeks 
for delivery of first copies Joint subscriptions to the rainbow and rainbow on tape or rainbow on disk begin with the current issue. 

Please note: While group purchases of RAINBOW OM TAPE and RAINBOW OM DISK are permitted (and multiple subscriptions are even discounted, if purchased in one 
order trom a club), no license to make copies is conveyed or implied. Yes, your group may even purchase a subscription to our disk/tape services, but such purchase 
In no way authorizes that any copies be made of that original disk/tape. Specifically, this means that the original disk/tape itself may indeed be kept in a club library 
for use by members. However, a group purchase does not entitle club members, individually or as a group, to copy that disk/tape. 
Unauthorized copying of any copyright product is strictly illegal. The copyright (right to make copies) is in no way conveyed in the purchase transaction. 



16K ECB LVS, 



Keep track of your valuables and their l,D. numbers 



Home Inventory 



Manager 



By Bill Tottingham 



ou have just arrived home after a 
crime prevention seminar in time 
to notice a couple of hairy thugs 
in a moving van driving off with what 
seems to be all your prize possessions. 
Indeed, upon examination of your 
abode, you come to the conclusion that 
you have been robbed. 

The police are very helpful, checking 
for fingerprints and such, and finally 
asking you for a list of the stolen items 
and their serial numbers. You imme- 
diately give them a printout of these 
items . . . Whafl. . . . No list'? 



Bill lives in Milton, Wisconsin, and is 
a free-lance programmer, an auto body 
worker and a programming consultant 
to high-tech developments. 
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Unfortunately, this scenario is not 
uncommon, and anyone who has expe- 
rienced it knows that without a list of 
items and their serial numbers, your 
chances of ever recovering your posses- 
sions are greatly diminished. What's 
more, many insurance companies now 
require such a list before they pay off. 

Home Inventory File may be your 
answer. The program keeps track of all 
your items, their serial numbers, their 
brand names, their value, and any 
specific information that will make 
identification easy. 

The program works on a 16K ECB 
machine, tapeordisk. Ifyouhavea64K 
CoCo, you can clear more memory in 
Line 20 and change the value of Dfi in 
Line 30 to handle more items. The 
printer control codes, assigned in lines 
1040 through 1070, are set up for the 
Radio Shack DMP-130. 

The first screen you see after running 
the program gives you the option of 
creating a file for disk or tape or loading 
a file from disk or tape. As we're just 
starting, pick "Create File." 

Enter the data, keeping the length 
under 14 characters for each of the first 
four entries. The fifth entry can be up 
to 1 1 1 characters — this is where you 
enter any specific information. 

After the fifth entry, you are asked if 
the information is correct. If you answer 
no (N), you will be asked what line you 
want to change. After making any 
necessary changes, answer yes (Y) to the 
information prompt. 

Here you can press A to add another 
item, S to save to disk or tape, or V for 
view. 

After entering all the items, press S. 
You will be asked for a filename before 
operations continue. When you have 
supplied one, you will be put in the View 
mode, from which you can print your 
hard copy, delete an item, add more 
items, view items (use up and down 



INVENTORY 




ITEM EftffiO 


VAL'JE 


SERIAL * 


TV PANASONIC 


319 


24535t4 


CUTS: CABLE-READY, REMOTE 






VCR MITSUBISHI 


400 


3532632 


CUTS: 4 HEADS, STEREO 






COLOR COMPUTER RADIO SHACK 


199 


4364345 


CHTS: COCO I 


• ■ 




MONITOR TANDY 


300 


3476948 


CHTSi RGB/COMPOSITE 






DISK DRIVE IBM 


279 


39B7382 


GMTS: DUAL DRIVE 






PRINTER TANDY 


330 


3435793 


CMT3: DHP-130 







arrows to scroll through the file), save 
your file, or quit. 

The View mode is also the mode you 
enter after loading a file. This is a simple 
process — from the entry menu just 
select the load option and respond to 
the filename prompt. 

After you play with the program for 
a while, you will see how simple it is to 
use. On a 16K CoCo with disk, you may 



have to change the value of DA in Line 
30 to a lower value to avoid an OS 
Error. Most importantly, don't forget to 
put your disk and hard copy somewhere 
safe! 

(Questions or comments about this 
program may be directed to the author 
at 3916 Lakeshore Drive, Milton, W] 
53563. Please enclose an SASE when 
writing for a response.) □ 
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Y/ 180 .. 

390 .. . 
580 .. . 


....64 820 . .. 
...135 1000 .. 
...161 END 


. .. .74 

....79 

126 



The listing: INVNTORY 

1 ' * HOME INVENTORY ** 

2 '* (0)1986 ** 

3 •* BY BILL TOTTINGHAM ** 

4 »* BOX 331 MILTON, WI ** 

5 '*********************** 

10 PCLEAR1 

20 CLEAR5000 

30 DA=40 

40 DIM I$(DA) ,B$(DA) ,C$(DA) ,S$(D 

A),V$(DA) 

50 CLS0 

60 PRINT@32," HOME INVENT 

ORY" 

70 PRINT@128,STRING$(255,32) ;STR 

ING$(32,32) 

80 PRINT@160," 

SK FILE" 

90 PRINTS 2 2 4," 

PE FILE" 

100 PRINT@288," 

K FILE" 

110 PRINT@352," 

E FILE" 

120 I$=INKEY$ 

130 IF I$="1"THEN 

140 IF I$="2"THEN 

150 IF I$="3"THEN 

160 IF I$="4"THEN 

170 GOTO120 

180 X=l 

190 GOSUB840:GOSUB850 

200 F0RZ=1T05 

210 ON 2 GOSUB8 60, 8 80, 900,920, 94 





1) CREATE DI 

2) CREATE TA 

3) LOAD DIS 

4) LOAD TAP 



DN=1: GOTO 180 
DN=-1: GOTO 180 
DN=1:GOTO610 
DN=-1:GOTO610 



Mouse Tales By Logan Ward 

■fflflHUIELL mOLISE 




220 IF I$(X)=""THEN210 

2 30 NEXT 2 

240 IF LEN(C$(X) )>111 THEN C$(X) 

=" " : GOSUB840 : GOSUB850 : GOSUB940 : G 

OTO2 50 

250 PRINT© 45 4, "INFORMATION CORRE 

CT?" 

260 I$=INKEY$ 

IF I$="N"THEN350 

IF I$O"Y"THEN260 

PRINT@454,"(A)DD (V) IEW (S)A 



2 70 

2 80 

290 

VE ' 

300 IS-INKEYS 

IF I$="A"THENX=X+1:GOTO190 
IF I$="V"THEN NF=X:X=l:GOT04 



IF I$="S"THEN 
GOTO 3 00 



NF=X:GOTO5 60 



310 

3 20 

10 

330 

340 

350 PRINT04 5 4, "LINE TO BE CORREC 

TED?" 

360 I$=INKEY$:IF I$=""THEN360 

I=VAL(I$):IF 1=0 THEN 3 60 

IF I>5THEN360 

ON I GOSUB860,880,900,920,94 



370 
380 
390 

400 
410 
420 



GOSUB840 : GOSUB850 :GOTO240 

IF I$(X)=""THEN470 

CLS:FRINT@32+(32-LEN(I$(X) ) } 
/2,I$(X) 

430 PRINT@129+(16-LEN(B$(X) ) )/2, 
B$(X) :PRINT@144+(16-LEN(S${X) } )/ 
2,"#";S$(X) 

440 PRINT@191+(32-LEN(V$(X) ) )/2, 
"$";V$(X) 

450 PRINT@256,C$(X) 
460 PRINT@384,"(D)ELETE (A) DD (H 
)ARDCOPY (S) AVE":PRINT@451, " (Q)U 
IT <ARROWS TO SCROLL>" 
470 I$=INKEY$:IF I$=""THEN470 

IF I$=CHR$(94)THENX=X+1:IF X 

THEN X=NF ELSE GOTO410 : GOT04 



480 

>NF 

10 

490 

X<1 

500 

:IF 



IF I$=CHR$(10)THEN X=X-1:IF 
THENX=1 ELSE GOTO410 :GOTO410 
IF I$="D"THEN I$(X)="":X=X-1 
X<1THEN X=NF ELSE GOTO410:GO 



TO410 

510 IF 

520 

530 

540 

550 

560 

570 



I$="H" THEN 1030 
I$="A"THEN X=NF+1:GOTO190 
I$="S"THEN560 
I$="Q" THEN END 



IF 

IF 

IF 

GOTO470 

GOSUB9 60 

I$=INKEY$:IF I$OCHR$ ( 13) THE 
N570 
580 GOSUB740 

I$=INKEY$ : IFI$=" "THEN590 

X=1:GOTO410 

GOSUB 9 60 

I$=INKEY$:IF I$oCHR$ (13 ) THE 



590 
600 
610 
620 
N620 
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63j3 GOSTJB650 


940 PRINT@337, STRINGS (LEN(C$(X) ) 


64J3 :X=l:G0T041p 


,32) :PRINT@337,""; : LINEINPUTC$ (X 


650 "READ FILE 


) 


660 X=p 


950 RETURN 


670 OPEN"I",#DN, FILES 


960 CLS:PRINT@74, "FILE NAME??":P 


680 X=X+1:NF=X 


RINT@106 , " ■ ; : LINEINPUTFILES 


690 IF EOF(DN) THEN720 


970 IF FILES=""THEN9 60 


700 INPUT#DN,I$(X) ,B${X) ,S$(X) ,V 


980 IF LEN (FILES) >8THEN9 60 


$(X),C$(X) 


9 90 IF DN=1THENPRINT@2 64,"PLACE 


710 IF EOF(DN)=0THEN680 


DATA DISK" :PRINT@298,"IN DRIVE - 


720 CLOSE 


0-" 


730 RETURN 


1000 IF DN=-1 THEN PRINT@266, "PO 


740 'WRITE FILE 


SITION TAPE": PRINTS 2 94, "PRESS PL 


750 OPEN H 0",#DN, FILE$ 


AY & RECORD" 


760 FOR X=1T0 NF 


1010 PRINT@4 60,"<ENTER>" 


770 IF I$(X)=» H, THEN8I0 


1020 RETURN 


780 IF DN=1 THEN WRITE #DN,I$(X) 


1030 'PRINTER ROUTINE 


,B$(X) ,S$(X),V$(X) ,C$(X) 


1040 EO$=CHR$(27)+CHR$(14) : ' DOUB 


790 IF DN=-1 THEN PRINT #DN,I$(X 


LEWIDTH ON 


) ,B$(X) ,S${X) ,V$(X) ,C$(X) 


1050 ED$=CHR$(27)+CHR$(15) : 'DOUB 


800 IF X=NF THEN820 


LEWIDTH OFF 


810 NEXT X 


1060 UO$=CHR$(15) : 'UNDERLINE 


820 CLOSE 


1070 UES=CHR$(14) : VEND UNDERLINE 


830 RETURN 


1080 CLS:PRINT@37, "POSITION PRIN 


840 CLS : PRINT @ 8, "DATA ENTRY/EDIT 


TER HEAD" :PRINT@364, "<ENTER>" 


": RETURN 


1090 I$=INKEY$:IF I$OCHR$(13) T 


850 PRINT@68,"1) ITEM: ";I$(X):P 


HEN1090 


RINT@132,"2) BRAND: " ;B$ (X) : PRIN 


1100 PRINT #-2, STRINGS (5, 13) 


T@196, M 3) SERIAL#: " ;S$ (X) : PRINT 


1110 PRINT#-2,TAB{31) ; EO$ ; " INVEN 


@260,"4) VALUE: " ;V$ (X) : PRINT@32 


TORY " ; ED$ j STRINGS (3,13) 


4, "5) COMMENTS: " ?C$ (X) :RETURN 


1120 PRINTS -2, TAB (0) ;UO$ ; TAB (80) 


860 PRINT@77,STRING$(LEN(I$(X) ) , 


;UE$ 


32) :PRINT§77,""; :LINEINPUTI$ (X) 


1130 PRINT#-2,TAB(0) ?UO$;TAB(10) 


870 RETURN 


;" ITEM"; TAB (30) ; "BRAND" ; TAB (50) ; 


880 PRINT@ 14 2, STRINGS ( LEN ( B$ ( X) ) 


"VALUE"; TAB (65) ; "SERIAL #";TAB(8 


, 32 ) : PRINT@142 , " " ; : LINEINPUTB$ (X 


0) ;ue$ 


) 


1140 PRINT#-2 


890 RETURN 


1150 FOR X=1T0NF 


900 PRINT@208,STRING$(LEN(S$(X) ) 


1160 IF I$(X)=""THEN NEXT X 


, 32) : PRINT9208 , "" ; : LINEINPUTS$ (X 


1170 PRINT#-2,TAB(7) ;I$(X) /TAB (2 


) 


5) ;B$(X) ;TAB(48) ;V$(X) ;TAB(63) ;S 


910 RETURN 


$(X) ;CHR$(13) 


920 FRINT@270,STRING$(LEN(V$(X) ) 


1180 PRINT#-2,TAB(5) ;"CMTS: ";CS 


,32) :PRINT@270,""; : LINEINPUTV$ (X 


(X) ; STRING $(2, 13) 


) 


1190 NEXT X 


930 RETURN 


1200 X=1:GOTO410 ^ 



PREMIUM COC03 512K UPGRADE 

•Made in USA by J&R Electronics ■ Memory chips socketed, user replaceable 

•Rugged, long life construction >Top mounted Memory lor cooling 

• Heavy duty POWER and GROUND planes to minimize mamory errors due to noise 
•High performance design, permits use of iess expensive 150ns memory chips 
•We supply Prime memory chips, not inferior pulls or fallouts" 
•includes RAMDISK. Spooler and Memory Tesl software on disk wilh 28 page User's 
Manual (We set the standard for 5T2K support software. We believe our software 
is uniquely powerful, as opposed to chose 'Me, too' companies that charge extra 
for soltware with much less power!) 

SPECIAL PRICES 

(1010-29.95 JramR bare board plus connectors and software 

1 01 4-39 . 95 Jramfl assembled & tested 0K (No memory chips) and software 

'CALL (for latest price of 1 101 4 with memory chips and other products) 

To place an order, write re: J &R Electronics, P.O. Box 2572, Columbia, MD 21045, 

OR call (3Q1) 9B7-9067Jesse or (301) 788-0861 -Ray 




THE 



ENTERTAINE 




12 NEW GAMES OR PUZZLES 

Mill - Nibbles - Mark 7 & more 

For all Cocos with 64K min. 
To get ail 12, send $10 in check or 
money order [no credit cards] to; 

disk George Aftamonow 
f] 46 Howe St, 

only Milford , CT. 06460 
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MIDI Instruments: 



0:yOl Brass 
2: 006 Piano 



II 005 String 
3: 009 Guitar 



S 4:013 E Organ 5=014 P Organ 

' 6! 003 Truuppl 7-016 Flute 

| 8:018 Dboe 9:019 Clarnet 

A: 021 Vibrphn B: 026 Harpsch 

C: 025 Clavier B: 032 Tinpani 

E: 043 Snaredr F: 045 Percusn 
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Now your COCO can talk to your MIDI music synthesizer. 
Whether you have a Korg, Roland, Casio, Yamaha, or Moog, it 
doesn't matter as long as it's MIDI equipped. Choose from our 



entry level MUSICA MIDI system that plays MUSICA files or our 
Professional COCO MIDI 2 system. 



n* Supports 16 Track recording and playback. 

v> Adjustable tempo 

(^ Over 45 Kbytes available 

(Over 15.500 MIDI events possible) 

v* Record to any track. 

v* Low Level track editing. 

^ LYRA editing, (one voice per track). 

j»* Playback from any number of tracks. 

k* Quantizing to >/w, Vk, Vet intervals. 

<*■* Dynamic memory allocation. 



p-* Filter out MIDI data 

Key pressure Control Change 



Program change 



Channel Pressure 
Syslem Message 



Pitch wheel 

v* Graphic Piano Keyboard Display in both 
record and playback mode. 

m* Adjustable Key (Transposition) for each 
track. 

v* Save recording to disk for later playback or 
editing. 

v Syncs to drum machine as MASTER or 
SLAVE. 



Save and load voice parameters for the Yamaha DX series of syn- 
thesizers (DX-7, DX-100, DX-21 etc.). Save sounds individually 
or as a group letting you load the entire synthesizer in seconds. 



DX LIBRARIAN 



TM 



v PUNCH IN and PUNCH OUT editing 

v* Sequencer features 

(** 100% machine code. 

i^ "Musician Friendly" Menu Driven. 

t* Metronome 

(-* Many songs included. 
Includes MIDI hardware interface, 2 MIDI ca- 
bles, detailed manual, and software. Requires 
64K CoCo, Y-Cable or Mulli-Pak. 
COCO MIDI 2 (disk only! #CM147 
DOUBLE Y-CABLE #DY181 .... 



$149.95 
$28.95 
TRIPLE Y-CABLE #TY173 $34.95 



Comes with professionally developed voices for the DX-7 worth 
10 times the price. Requires COCO MIDI hardware interface. 
DX LIBRARIAN (Disk only) #DX143 $39.95 



CASIO LIBRARIAN 



Save and load voice parameters for any Casio synthesizer (CZ-101, 
CZ-1000, CZ-5000 etc.) You can save from the: presets, cartridge, 



memory or buffer. Requires COCO MIDI hardware interface. 
CASIO LIBRARIAN (Disk only) #CL169 $39.95 



MUSICA MIDI 



TM 



MUSICA MIDI takes any MUSICA 2 music file and plays it through 
your MIDI synthesizer. We offer you over 800 tunes from our 
MUSIC LIBRARY series (sold separately) or create your own music 



using MUSICA 2. Inlcudes: documentation, plenty of music, and 
the cable to connect between the COCO and your synthesizer. 
MUSICA MIDI Complete (Disk Only) #CM126 $39.95 



MIDI KEYBOARD 



If you own the Casio CZ-101 or similar MIDI Synth, you know 
that the mini keys and the short 3 or 4 octave keyboard is limiting. 
MIDI KEYBOARD when used with our full size 5 octave keyboard 



gives you the flexibility you need. Comes with cable to connect 

the COCO to your MIDI synlh. 

MIDI KEYBOARD (Disk only) #MK167 $29.95 
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All Voices Dn 
Tine Signature- 



LEGE 



Key Signature 

Tenpo 



Reset block 
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LYRA is the most powerful music com posit ion program we have seen on 
any computer. We don't mean just the COCO, we really mean any com- 
puter. Whether you are a novice trying to learn music or a professional 
musician with MIDI equipment you will find LYRA a powerful tool. You 



see, we wrote LYRA for musicians that hate computers. If you want proof, 
purchase a LYRA demo for $7.95. We will apply the demo price to your 
purchase. MIDI output requires the LYRA MIDI cable (#MC!58> or COCO 
MIDI Seq/Editor (#CM147). 



Ultra Easy to use, fust point with joystick or 

mouse and click. 

Compose with up to 8 completely 

independent voices. 

Room for over 18,000 notes. (This is not ; 

misprint!) 

Super Simple Editing Supports: 



Note insert 
Note delete 
Note change 
Output music to: 
TV Speaker 
STEREO PAK 
SYMPHONY 12 
MIDI Synth 



Block insert 
Block delete 
Block copy 

Monitor Speaker 
ORCHESTRA 90 
COCO MIDI S/E 
MIDI Drum Machine 






Output up to 4 voices without additional 
hardware. 



These LYRA options are 

LYRA CONVERT 
A program to convert MUSICA 2 files to LYRA 
files. 
(Disk) #LC164 $14.95 

VERSION UPDATE 
To receive the latest version of LYRA return your 
original disk. #UP162 $10.00 

LYRA MIDI CABLE 

A cable to connect your computer to your MIDI 

synthesizer, 

#MC158 $19.95 

We accepl CASH, CHECK, COD. VISA and MASTER CARD orders. 

Shipping and handling US and Canada £.3.0,0 

Shipping and handling outside the US and Canada .... $5,0,0 

COD Charge 12.00 

Illinois resident add r>'/V% sales lax. 



Output all 8 voices using either SYMPHONY 
12 or one or more MIDI synthesizers and 
drum machines 

Output any voice on any of the 8 MIDI 

channels. 

Transpose music to any key. 

Modify music to any tempo. 

Automatically inserts bar (or each measure 

as you compose. 

Key signature lets you specify sharps and 

flats only once, LYRA will do the rest 

Plays MUSICA 2 files using LYRA CONVERT 

(#LC164). 

Each voice may be visually highlighted or 

erased 

Each measure is numbered for easy 

reading. 



v* Solo capability 

v Block edits are highlighted. 

**• Tie notes together for musical continuity. 

v* Name of note pointed to is constantly 

displayed. 
v* Jump to any point in the score 

instantaneously. 
v Memory remaining clearly displayed, 

however you will have plenty of memory 

even for the most demanding piece. 
v> Help menu makes manual virlually 

unnecessary. 
t*» LYRA is 100% software, no need for extra 

hardware unless you want more power. 
** Music easily saved to tape or disk, 
v* Requires 64K and mouse oi toystick. 



LYRA (Disk only) #LY122 



$54.95 



LYRA OPTIONS 



not required. They are provided for those wishing additional flexibility. 



LYRA SYMPHONY 12 ENHANCER 
Lets LYRA play all 8 voices through SYMPHONY 
12. 
(Disk) #LS177 $19.95 

LYRA LIBRARY 
A collection of 50 songs ready to play for hours. 
Most have 7 and 8 voices. #LL137 . $39.95 

SYMPHONY 12 

A real hardware music synthesizer, lets LYRA 

play all 8 voices in stereo. 

(T or D) #SY149 $69.95 
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COCO MID Seq/Editor 
A professional quality MIDI interface for MIDI 

synthesizers. 

(Disk only) #CM147 $149.95 

MUSIC LIBRARY 
A collection of over 900 songs. When used with 
CONVERT, it gives an incredibly LYRA library. 
Each volume 100 songs. 
(T or D) #MLXXX $29.95 



COCO MAX is ,i trademark cjr Coldrwane. 

ORCI IESTRA 90 is ,i lrarfem.uk •)! Radiu Shack. 



38VV255 DEERPATH ROAD 

BATAVIA, ILLINOIS 60510 

(312) 879-6880 
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Letter Writer is a simple menu- 
driven word processor that's 
great to use when you need to 
knock off something short, like a letter. 
To use the program, just load and 
run. It is 99.44 percent self-prompting, 
and gives a colorful (although perhaps 
non-professional) screen appearance, 
while attempting to help you compose 
a letter (a dying art in itself). 

After loading and running, you find 
yourself at the main menu, presented 
with eight options: 

C Commence a new letter 

A Add to an existing letter 

E Edit, inquire, view page 

L Load page — tape or disk 

H Hard copy on printer 

S Save page — tape or disk 

X Exit — terminate program 

P Print; fanfold envelope 

To begin a letter, press C. You must 
enter the line length of the letter by 
selecting your margins when prompted. 
For simplicity's sake, I usually use 8 and 
88, giving me an 81 -character line, 
which works well for my DMP-110 
printer in its proportional font mode. 
(This program is presentlv set up for the 
Radio Shack DMP-1 10 at 1200 baud.) 

The tab guide helps to educate your 

Originally trained in electronics, with 
home courses and 13 years with the Bell 
Telephone System, Arthur Hal lock 
switched to computers five years ago. 
He works as a police dispatcher and 
runs a computer repair service as a 
hobby. 



A mini word processor for your 
ietter-writing needs 



Color 
Correspondent 



By Arthur S. Hallock 

guess as to the indentation of your 
paragraphs, and the red "stopper" limits 
the line length to the length selected. If 
your line is too long, the program won't 
accept it and prompts you to re-enter 
(and shorten) the lines. Likewise, when 
in the Edit mode there is a series of dots 
that assist in the judgment of line length. 

The program starts out allowing you 
to enter 44 lines of text, which just about 
fill one page if you're using a letterhead. 
When you reach the limit, the program 
switches screens and prompts you to 
request another number of lines. This 
may be up to 200 lines as the program 
is written, unless you want to dimension 
a larger buffer area (LS is now dimen- 
sioned to 200 in Line 40), and you're 
returned to the main menu. Press A to 
add to your letter, starting at Line 45. 

The Edit mode allows you to proof- 
read your letter, viewing five lines at a 
time, as long as the line length is 91 or 
less. This fills the screen; if you use 
longer lines, viewing is more difficult as 
the top lines will be lost. 

When used with cassette systems, the 
program pauses on a screen that allows 



you to adjust your tape to whatever 
position you want, and then requests a 
filename. If, at this point, you enter a 
null (by pressing enter alone), the 
program will abort the load or save and 
return you to the main menu. Exiting 
the program aborts also, unless con- 
firmed by a 'Y' for yes. 

If you're using a disk system, you may 
enter DIR at the prompt for the filename 
to load — this allows you to view the 
directory. When you're running on disk, 
of course, you bypass the motor routine 
for cassette. 

Everything else is self-prompting and 
self-explanatory. Although it was writ- 
ten for the 32K CoCo, with appropriate 
pruning the program will work in 16K. 
In either case, the program is very 
flexible. Unnecessary lines can be left 
out, and the INSTR command can be 
added to, or subtracted from, quite 
handily. In that way, you can dedicate 
the program to 16K, tape or disk, and 
make room for more text. 

Change the printer baud rate in Line 
30 to your favorite rate. Lines 1620 and 
1730 check that the printer is online. 



CHR$<27) 
CHR$(27) 
CHR$(27) 
CHR?<27) 
CHR$(27) 
CHR$(27) 
CHR$(27) 



;CHR$(14) start elongation 

;CHR$(15) end elongation 

;CHR$(17) select proportional character 

;CHR$(19) select standard character If! CPI 

;CHR$(2J?) select condensed character 17 CPI 

;CHR$(29) select elite character 12 CPI 

;CHR§(66) select italic character 



Table 1: DMP-110 Printer Control Codes 
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The control codes used in this program 
(see Table 1) are for the Radio Shack 
DMP-110 printer. Most Radio Shack 
dot matrix printers will work just fine 
with these codes. For other printers, you 
will find the listed control codes in lines 
1500, 1590 and many lines from Line 
2050 through Line 2360. One final note 



on control codes. The code CHR$(12) 
appears in several lines in the program. 
This code is interpreted by nearly every 
printer to mean "perform a form feed." 
To use the envelope routine, just edit 
LH$ and RDS in lines 2010 and 2020, and 
adjust the block in lines 1900 through 
2370 to read with your name. 



As the entire program is written in 
block form, any area can easily be 
tailored to your specifications. 

(Questions or comments about this 
program may he directed to the author 
at Route I, Box 198 HHH, Deming, 
NM 88030. Please enclose an SASE 
when writing for a reply.) □ 
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...43 1570 .. 


...133 


V/]180 ... 


L I 300 .. . 


...235 1770 .. 


...225 


590 ... 


...171 1920 .. 


. ...42 


820 ... 


...206 2150 .. 


...229 


1000 .. 


. . .234 2310 .. 


...205 


1200 .. 


...99 2550 . . 


...198 


1390 


87 END . . 


....42 



The listing: LETRRITR 



10 
30 

40 

50 



GOTO 30 * LETRWRTR/BAS 
14 JAN 8 4 * ASHALLOCK 
PCLEAR1:POKE150,41:CLS3 '*** 
BAUDRATE SET TO 1200 DMP110* 
CLEAR10000 : DIML$ ( 200 ) 
DIMC(180) ,L<25) ,M(60) ,P(60) ,Q 



(60),R(96),Z(96) 



90 GOTO2440 

100 IF C>0 THEN30ELSE110 
110 CLS3:PRINT@33,"** M BK$"start 
-up"BK$ M routine ,, BK$" **" ; : PR I NT @ 
96 , STRING$ (32 , 182) ; : POKE1066 , 45 
120 PRINT@162," WHEN ENTERING TE 
XT, ENTER " ?:PRINTSTRING$(5,175) 
f ;PRINT@194," A PERIOD ( . } T 
O EXIT "; 

130 P=0 : PRINTS 2 58 , ; : INPUT" ENTER 
LEFT MARGIN » ; L: L=L-1 : IFL<0 THE 
N L=0 :PRINT@257, STRINGS (5, 175) ,* 
140 PRINT@258," RIGHT MARGIN MUS 
T BE "; :PRINTSTRING$(5,175) 
" EQUAL TO OR LESS THAN 96 " ; 
150 PRINT@354," ";: INPUT "ENTER R 
IGHT MARGIN ";R 

160 IFR=0 THEN90ELSEIFR<L THEN15 
0ELSE170 



SPtCIAL bVbMT? 

COCO GALLERY LIVE 
SHOWCASE YOUR BEST AT RAINBOWFEST 

We are taking the popular "CoCo Gallery" on the road to RAINBOWfest Chicago — and we'd 
like you to submit your own graphics creations to be exhibited at the show! 



• You can enter color or black-and-white photographs or printouts of your original artwork produced 
on the CoCo 1, 2 or 3. Entries should be framed, mounted or matted, and may not be smaller than 
5-by-7 inches or larger than 1 1 -by-1 4 inches. 

• Don't send us anything owned by someone else; this means no game screens, digitized images from 
TV programs or material that's already been submitted elsewhere. A digitized copy of a picture that 
appears in a book or magazine is not an original work. 

• Along with your entry, send a cover letter with your name, address and phone number, detailing how 
you created your picture {what programs you used, etc.). Please include a few facts about yourself, 
too! 

• Your name, address and phone number, along with the title of your work, must be clearly marked 
on the back of each entry, and a disk copy of each piece must also be included. 

• Entries may be mailed to the rainbow before Way 1, 1988, or brought to the RAINBOWfest registration 
booth by 10 a.m.. Saturday, May 21. 

• Your work will be returned if sent with a postage paid return envelope, or entries can be picked up 
at the close of the show — Sunday. May 22, at 4 p.m. 

There will be two categories: one for graphics produced on the CoCo 1 and 2, and one for 
CoCo 3 graphics. Several awards will be made in each category. Winners will be determined 
by votes from RAINBOWfest attendees. In case of any ties, winners will be determined by 
our chief judge, CoCo Cat. 

Prizes and ribbons will be presented Sunday, May 22, and winning entries will be published 
in the September '88 issue of the rainbow. Send your entry to "CoCo Gallery Live," the 
RAINBOW, 9509 U.S. Highway 42, Prospect, KY 40059. 
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AINBOWIest is the only computer show dedicated 

exclusively to your Tandy Color Computer. 

Nowhere else will you see as many CoCo-related 

products or be able to attend free seminars conducted 

by the top Color Computer experts. It's like receiving the 

latest issue of the rainbow in your mailbox! 

RAINBOWfest is a great opportunity for commercial 
programmers to show off new and Innovative products 
lor the first time. Chicago is the show to get information 
on capabilities for the new C0C0 3, along with a terrific 
selection of the latest C0C0 3 software. In exhibit after 
exhibit, there will be demonstrations, opportunities to 
experiment with software and hardware, and special 
RAINBOWfest prices. 

Set your own pace between visiting exhibits and 
attending the valuable, free seminars on all aspects of 
your C0C0 — from improving basic skills to working with 
the sophisticated OS-9 operating system. 

Many people who write foj the rainbow — as 
well as those who are written about — are there 
to meet you and answer questions. You'll also 
meet lots of other people who share your in terest 
in the Color Computer. It's a person-to-person 
event and a tremendous learning experience in 
a fun and relaxed atmosphere, 

A special feature of RAINBOWfest is the 
Educational Sandbox, which features 
child-oriented workshops to give hands- 
on experience to an age group often 
5^L \ neglected. There are sessions for the 

kindergarten through third-grad- 
ers, and for fourth- through sev- 
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enth-graders. And, as an additional treat for C0C0 Kids of 
all ages, we've invited frisky feline C0C0 Cat to join us for 
the show, RAINBOWfest has something for everyone in the 
family! 

If you missed the fun at our last RAINBOWfest in Prince- 
ton, why don't you make plans now to join us in 
Chicago? For members of the family who don't share 
your affinity for C0C0, there are many other attrac- 
tions in the Chicago area. 

The Hyatt Regency Woodfield offers special rates for 
RAINBOWfest, The show opens Friday evening with a 
session from 7 p.m. to 10 p.m. It's a daytime show 
Saturday — the C0C0 Community Breakfast (separate 
tickets required) is at 8 a.m., then the exhibit hall opens 
promptly at 10 a.m. and runs until 6 p.m. On Sunday, 
the exhibit hall opens at 11 a.m. and closes at 4 p.m. 

Tickets lor RAINBOWfest may be obtained directly 
from the rainbow. We'll also send you a reserva- 
tion form so you can get a special room rate. 

The POSH way to go You can have your travel 
arrangements and hotel reservations handled 
through rainbow affiliate, POSH Travel Assist- 
ance, Inc. of Louisville, For the same POSH 
treatment many of our exhibitors enjoy, call POSH at 
(502) 893-331 1 . All POSH services are available at no 
charge to RAINBOWfest attendees. 
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Rick Adams 

Independent Programmer 
Writing Commercial Software 

Cray Augsburg 

RAINBOW Technical Editor 

OS-9 For Absolute Beginners 

Bill Bernico 

Independent Programmer 
Writing in BASIC 

Tom DiMarco, Sr. 

Gimmesoft 

Hard Drive Installation, 

Operation and Maintenance 

Marty Goodman, M.D. 

RAINBOW Contributing Editor 
CoCo Consultations 



FXfab SbMINARS 
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Ed Hathaway 

Glenside CoCo Club 
Organizing a CoCo Club 

A. Buddy Hogan 

Independent Programmer 

Integrating CoCo 3 Into 
Organizational Work 

Donald Hutchison 

RAINBOW CoCo SIG Database Manager 
Introduction to rainbow's 
CoCo SIG on Delphi 

Jutta Kapfhammer 

RAINBOW Managing Editor 
Writing for Publication 

Dale Lear 

RAINBOW Contributor 

Elements of Programming Games 

Originality in Game Programming 



Ross Litton 

Howard Medina! 
Monitor Interfacing 

Richard Parry 
Cecil Houk 

Speech Systems 
Music and MIDI 

Dale Puckett 

RAINBOW Contributing Editor 
Beginners Overview of OS-9 
Beginners Overview of BASIC09 

Logan Ward 

Computer Center 

Creative Uses for CoCo Max 

Dick White 

RAINBOW Contributing Editor 
Spreadsheets for the CoCo 




<•€• COMMUNITY 3MAKFAST 

Dan Bruns — President, General Videotex Corporation 

Our keynote speaker for the traditional CoCo Community Breakfast is Dan 
Bruns, president and chief executive officer of General Videotex Corporation 
(Delphi). Formerly a systems analyst for Sperry Univac. Mr. Bruns has helped 
Delphi grow into a major telecomputing information service and an important 
meeting place for the CoCo Community. 

SPbCIAL fcVfcNTf 



We're pleased to present The Educational Sandbox, a joint Tandy/RAiNBOw 
effort. This is a computer workshop for RAINBOWfest kids. There will be 
two sessions on both Saturday and Sunday. One workshop will be for the 
kindergarten through third-grade set, and the other for fourth- through 
seventh-graders. Each workshop will last between 45 minutes and one 
hour, and will give the children and their parents hands-on experience in 
using Tandy computers and software. 



RAINBOWfest -Chicago, Illinois 

Dates: May 20-22. 1988 

Hotel: Hyatt Regency Woodfield 

Rooms: $64 per night, 

single or double 

Advance Tlckel Deadline: May 6, 1988 

Join us at a future RAINBOWfest! 

RAINBOWfest- Princeton, New Jersey 

Dales: October 21-23, 1988 

Hotel; Hyatt Regency Princeton 

Rooms: $88 per night, 

single or double 

Advance Ticket Deadline: Oct. 7, 1988 

FREE T-Shirt to first five ticket orders re- 
ceived from each state. 
First 500 ticket orders received get The 
Rainbow Book ol Simulations. 



R 



YES, I'm coming to Chicago! I want to save by buying tickets now at the special advance 
sale price. Breakfast tickets require advance reservations. 



Mi 



Please send me: 



Three-day tickets at $9 each total 



One-day tickets at $7 each total 

Circle one: Friday Saturday Sunday 



Name 

{please print) 

Address 



t 



Saturday CoCo Breakfast 
at $12 each 



City 



total 



Telephone 
Company _ 



State _ 
. ZIP. 



□ Payment Enclosed, or Charge to: 
□ VISA □ MasterCard □ American Express 

Account Number 



RAINBOWfest T-shirts 

at $6 each total 

(Advance sale-priced T-shirts 
must be picked up at the door) 

Handling Charge $1 - 

TOTAL ENCLOSED 

(U.S. Currency Only, Please) 
D Also send me a hotel reservation card for the 

Hyatt Regency Woodfield ($64, single or double 

room). 

Advance ticket deadline: May 6, 19B8. Orders received less than two weeks prior to show opening will be field tor you at the 
door. Tickets will also be available at the door at a slightly higher price. Tickets will be mailed six weeks prior to show. Children 
4 and under, free: over 4. full price. 

Make checks payable to: The RAINBOW. Mail to: RAINBOWfest, The Falsoft Building, 9509 U.S. Highway 42, P.O. 

Box 385, Prospect, KY 40059. To make reservations by phone, in Kentucky call (502) 228-4492, or outside Kentucky 

all (800) 847-0309. 



\S> 



Exp. Date 



Signature 



^ 
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170 IFR>(K+L+2) THENR=0 : SOUND 150 
,5:GOTO140 ELSE180 
180 R=R-1:Z=R-L:M=44:GGTO210 
200 IFC=0 THEN90ELSE210 
210 C=C+1:IFC=>M THEN13 60 
220 POKE2 8 2,0:CLS3:PRINT@12 8,STR 
ING$(32,182) ; : PRINT© 160, TAB(4) ;C 
HR$(188)"5";:PRINTTAB(9) ;CHR$(18 
8) "10"; :PRINTTAB(14) ;CHR$(18 8) "1 
5"; :PRINTTAB(19) ;CHR$(188) "20"; 
230 PRINTTAB(24) ;CHR$ (188) "25" ;T 
AB(29) ;CHR${188) "30" ; : PRINT@0 , "t 
ab"BK$"guide"BK$"and"BK$"end"BK$ 
" of " BK$" text "BKS "marker"; 
2 40 EN=96-Z : PRINTS 19 2 , "" ; : PRINTT 
AB ( Z ) ; STRING$ ( EN , 19 1 ) ; : PRINTSTRI 
NG$(32,183) ; 

250 PRINT@3 57," MARGINS ARE"L+1" 
AND"R+1; :PRINT@417, " LINE LENGTH 
IS"R+1-L"CHARACTERS "; 

2 60 PRINT@480 / STRING${4,128) ;:PR 
INT@484, ,, enter"BK$"a"BK$"period" 
BK$". "BK$"to"BK$"end" ; : PRINTSTRI 
NG$(4, 128) ; : POKE1535 , 128 : POKE152 
3,46 

270 PRINT@71," LINE NUMBER "C" " 

; : PRINT© 19 2, ; : LINEINPUTL$ (C) 

280 IFL$(C)="."THEN C=C-1:GOTO90 

290 IF LEN{L$(C))>Z THEN300ELSE3 

10 

300 L$(C)="":PRINT@3 20, " TOO LON 

G- TRY AGAIN ": SOUND100 , 10 : SOUND 

50 , 10 : FORD=1TO1000 : NEXT : GOT02 20 

310 IFLEN(L$(C) ) =0 THENL$(C)=" " 

3 20 GOTO210 

400 IFC=0 THEN90ELSEPOKE28 2,0 
410 CLS3:PRINT@3 3,"** edit"BK$"r 
outine **" ; : PRINT©96 , ; 

4 20 Q=0:P=0 

430 Q=Q+1:P=P+1 

440 PRINTQ;TAB(4) ;L${Q) 

450 IFQ=C THEN480 ELSE460 

4 60 IFP=5 THEN480 

470 GOTO430 

4 80 P=0 

4 90 YY=0: PRINT" enter "BK$"line"BK 

$"number M BKS"or"BK$"enter"; : INPU 

TYY 

500 IF YY>C THEN490 ELSE510 

510 IFYY<=0 THEN520 ELSE540 

520 IFQ=C ANDP=0 THEN90ELSE530 

530 CLS3:GOTO470 

540 EE=0:EE=YY:YY=0:CLS3 

550 PRINT ©9 7," OLD LINE: ";:PRIN 

TL$(EE) :L$(EF)=L$(EE) :L$(EE)="" 

560 PRINT©257, ; : : POKE282 ,0: PRINT 

" NEW LINE: ";:PRINTSTRING$(Z,". 

" ) ; : PRINT@2 68 , ; : LINEINPUTL$ (EE) 

570 IFL$(EE}="" THENL$(EE)=L$(LF 

) :GOTO410 



580 IFL$(EE)=". M THEN L$(EE)="":E 

E=EE-1:C=C-1 

590 IF LEN(L$(EE) }>Z THENPRINT" 

TOO LONG - TRY AGAIN" : L$ (EE) ="" : 

GOTO5 60 

600 GOTO410 

690 PRINT@480 , BK$"touch"BK$"any" 

BKS " other "BK$ "key "BK$" to "BK$ "ret 

urn "BKS; : POKE153 5 , 128 : RETURN 

700 POKE282, 255: CLOSE 

710 CLS4:PRINTSTR1NG$(64,182) ; :P 

RINT@97 , « DID YOU SAVE YOUR LAST 

PAGE? " ; : PRINT© 160, STRING? (64,1 
82) ; :PRINT@257, " TERMINATE ?...( 
y' , BK$"to"BK$"confirm) "BK$; 
720 POKE1296,40:POKE1309,41:GOSU 
B690 

730 Q$=INKEY$:IFQ$=""THEN730 
740 IFQ$="Y" ORQ$="y"THEN790 
750 IFQ$<>"Y" ORQ$O"y"THEN90 
790 CLS3: PRINT "THE LETTER WRITER 

PROGRAM IS "/'TERMINATED (C) 19 
84 ASHALLOCK", "TYPE "CHR$(34)"CO 
NT"CHR$(34)" TO CONTINUE WITHOUT 

LOSS OF DATA " ; : END 
800 IFC=0 THEN2 4 40ELSE810 
810 CLS4:PRINT@39,"** save"BK$"r 
outine **"; : GOSUB2 700: FORD=1TO10 
00: NEXT 

820 IF DV=-1 THENPRINT@9 8," * * 
* ready"BK$"cassette * * * ";ELS 
EPRINT@98," * * * touch"BK$"S"BK 
$"to"BK$"save * * *";:GOTO9 20 
830 PRINTS 2 2 7," [space] TURNS MO 
TOR OFF " ; 

840 PRINT@291," [enter] TURNS MO 
TOR ON " ; 

850 PRINT@358," TOUCH [s] TO SAV 
E ";:GOSUB690 

860 I$=INKEY$:IFI$=""THEN860 
870 IFI$=" "THEN910 
8 80 IFI$=CHR$(13)THEN900 
890 IFI$="S" ORI$="S"THEN920 ELS 
E90 

900 PRINT@424," MOTOR IS on ";: 
AUDIOON : MOTORON : GOT08 60 
910 PRINT@424," MOTOR IS off ";: 
AUDIOOFF : MOTOROFF : GOT08 60 
920 CLS3 :PRINT@97, " NAME MUST BE 

BETWEEN 1 AND 8 " ; : PRINT©129 , " 
CHARACTERS LONG only " ; 
930 NE$="":PRINT@225, " ENTER NAM 
E YOU WISH TO SAVE ";: PRINTS 2 57 , 

;:LINEINPUT" THIS FILE AS: " ;NE$ 

940 IF LEN(NE$)=0 THEN2 440 

950 IF LEN(NE$)>8 THEN810ELSE960 

960 PRINT©321," SAVING TO "TD$" 

AS ";NE$" ";STRING$ (5,175) ; 

970 IF DV=-1 THENMOTORON:FORD=lT 

O300 : NEXT : MOTOROFF 
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98# OPEN"0",#DV,NE$ 
99£ PRINT#DV,C,L,R,Z,M 
Ij3<2j5 FOR RR=1 TOC 
1010 PRXNT#DV,L$(RR) 
102j3 NEXT 
lj33p CLOSE 

1040 PRINT0321," FILE IS SAVED A 
S "NE$" ,, ;STRING$(5,175) ; 
IfSSfi IF DV=-1 THENMOTORON:FORD=l 
TO100:NEXT:MOTOROFF 
1060 GOTO 2 4 40 
1070 G0T0244J3 

110JS IF C>0 THEN30ELSE1110 
1110 CLS3:PRINT(?38,"** load"BK$ 
"routine **" ; : GGSUB2 700 : F0RD=1T 
01000: NEXT 

1120 IF DV=-1 THENPRINT@98, " * * 
* ready"BK$"cassette * * * » ; el 
SEIF DV=1THEN1220 

1130 PRINT© 2 2 7," [space] TURNS M 
OTOR OFF "| 

1140 PRINT@291," [enter] TURNS M 
OTOR OK »; 

1150 PRINT@358," TOUCH [1] TO LO 
AD "; ;GOSUB690 

1160 I$=INKEY$:IFI$=""THEN1160 
1170 IFI$=" "THEN 1210 
1180 IFI$=CHR$(13)THEN1200 
1190 IFI$="L" ORI$="1"THEN1220 E 
LSE90 

1200 PRINT@424," MOTOR IS on " I 
:AUDIQON:MOTORON:GOTO1160 
1210 PRINT@424," MOTOR IS off » ; 
! AUDIOOFF : MOTOROFF : GOTO1160 
12 20 CLS3:GOSUB2 700:PRINT@1," SY 
STEM SET TO "TD$" " ; 
1230 '* SAVE ROUTINE 
1240 NE$="":PRINT@225, ;: INPUT" E 
NTER NAME OF FILE " ;NE$ 

12 50 IF LEN(NE$)=0 THEN90 ELSEIF 
NE$="DIR" THEN2 600 ELSE1260 
1260 IF LEN(NE$)>8 THEN1240 ELSE 
1270 

1270 OPEN" I" ,#DV,NE$ 

1280 INPUT#DV,C,L,R,Z,M 

1290 PRINT: PRINT" LEFT MARGIN SE 

T AT ";L+1 

1300 PRINT: PRINT" RIGHT MARGIN S 

ET AT " ?R+1 

1310 PRINT: PRINT" PAGE LENGTH SE 

T AT ";M 

13 20 FOR RR=1T0 C 
1330 IF EOF(DV) THEN90 
1340 LINEINPUT#DV,L$(RR) 
13 50 NEXT: CLOSE :GOT02 440 

13 60 CLS3:PRINT@3 3, " YOU HAVE RE 
ACHED THE LIMIT " ; : PRINT@65 , " OF 

YOUR PAGE LENGTH " ; 
1370 PRINT@129," DO YOU WANT TO 
INCREASE THE " ; : PRINT@161 , " LENG 



TH ( y OR ANY OTHER KEY) " ; 
1380 Y$=INKEY$:IFY$=""THEN1380EL 
SE1390 

1390 IFY$="Y"OR Y$="y"THEN1400EL 
SE1430 

1400 PRINT@2 2 5, ; :MM=0:INPUT" ENT 
ER NEW PAGE LENGTH " ;MM 
1410 IFMM <M THEN1400 ELSE1420 
1420 M=MM:GOSUB690 
1430 IFINKEY$=""THEN1430 ELSE90 
1490 •* PRINT FANFOLD ENVELOPE 
ALL PRINTER CODES FOR DMP110 
1500 CLS4:PRINT@130," READY PRIN 
TER PAPER "; :GOSUB1620:PRINT@480 
," ANY KEY WHEN READY ■ ,*:EXEC&HA 
171 : PRINT#-2 , STRING$ ( 18 , 10 ) : PRIN 
T#-2,CHR$(27) ;CHR$(17) f 
1510 PRINT #-2, "Arthur S. Hallock 
":PRINT#-2, "Route 1, Box 198HHH" 
:PRINT#-2, "Deming, NM 88030" 
1520 PRINT#-2,STRING$(12,10) 
1530 CLS4:PRINT@130, " ENTER ADDR 



ESSEE: ": PRINTS 2 2 4," NAME: 



PR 



INT@256," ADDR: 



PRINT@288," C 



TST: "; :PRINT@320, " ZIP : " ; : PRI 
NTQ224, ; 

1540 POKE282,0:LINEINFUT" NAME: 
" ;A$ 

1550 LINEINPUT" ADDR: " ?B$ 



"I cannot imagine the CoCo 3 without ADOS-3; 
it would not be a complete machine." 

The RAINBOW, July 1987 

You've moved up to o CoCo 3. A powerful new machine. Now, It's time to 
give BASIC a shot in the arm. wilh ADOS-3. Wouldn't It be nice to lurn on your 
machine and be greeted by an 80-column display. In the colors ot your 
choice, with your own custom startup message? To run routinely al 2 MHz 
(double speed] wilhoul hoving to slow down tor disk ond printer operations? 
This and much, much more is possible with ADOS-3. our CoCo 3 adaptation 
ot the acclaimed original ADOS, which shares Ihe original's vidua! 100% 
compatibility wilh commercial software. After customizing ADOS-3 using the 
provided configuring utility, you con have it burned into an EPROM that plugs 
Into ihe Disk BASIC ROM socket, or just use it in RAM as a disk utility, (EPROM 
+ burning will cosl S 15-20; we provide informalion concerning how you con 
have this done.) Supports double-sided drives (35, JO. or 80 Iracks). FAST and 
SiOW commands, auto tine number prompts. RUNM command, keyslroke 
macros, arrow-key scroll through BASIC programs, aulo-edit of error line, and 
many more valuable features. 

"ON A SCALE OF 1 TO 10, I RATE ADOS-3 A SOLID 15." RAINBOW, 7(87 

Disk . S34.95 Original ADOS for CoCo 1 or 2 S27.95 (568 «87 RAINBOW review) 
Original ADOS plus ADOS-3 $50.00 

THE PEEPER 

ML program tracer thai mullilasks with the lorget program An excellent 

learning tool tor Ihe ML novice; an invaluable debugging aid tor the expert 

CoCo 1. 2. or 3 compatible. 

Disk S23.VS Assembler source listing . . Add S3,GC 



MONITOR CABLES tor CoCo 3 

Magnauox 6CM515f8CM505fflCMM3 



SPECTROSYSJEMS; 



SonyKV13l1CB . 



11111 N Kendall Drive, 

Suite A 108 

Miami, Floriaa 331 76 



5^-^-" O05( 274-38990ay or 

■ on personal checks ■ Please add %Z 00 ahippnrj • Sorry no credit cards or COD s 



April 19S8 



THE RAINBOW 



53 



Frank Hogg Laboratory 

12 Years of Service, Support, and Friendly Help l 

DISCOUNT PRICE LIST 



COCO HARD DRIVE SYSTEMS 

30 Meg Burke& Burke System Complete 
20 Meg High Speed System Complete 
40 Meg High Speed System Complete 


$580.00 
$799.00 
$899.00 



CoCo Hard Drive Interfaces 

FHL HCA/WD High Speed Interface 119.00 

(Uses WD 1002-05 above, includes software OS9 only) 
Burke & Burke XT PC style interface 69.95 

B&B XT RTC w/battery clock/calendar 99.95 

(See software listed under B&B to right) 



Hard Drive Controllers 

WD PC RLL for Burke & Burke Interface 
Western Digital WD 1002-05 $289,00 

(For FHL High Speed Hard Disk Interface) 
Adaptec 4000 SCSI/SASI 
Adaptec 4070 SCSI/SASI RLL 

(For Owl and Disto interfaces) 

HARD DRIVES (5.25" HALF HEIGHT) 
MlnlScrlbe High Quality Drives - 1 Year Warr. 



92.00 
210.00 

162.00 
162.00 



M3425+ 


21.4MB 53 MS 


$395.00 


M3438 


32.7MB RLL 55MS 


$415.00 


M3650 


41.9MB 61MS 


$455.00 


M3053 


44.6MB 25MS 


— , 


M6085 


71.3MB 28MS Full Height 


(Man j 


others available - Call) 





281.00 
291,00 
376.00 
711.00 
975,00 



DISK DRIVES (5.25" and 3.5" FLOPPY DISKS) 
TEAC High Quality Drives - 1 Year Warr. 



FD55B 360K 40 Track DS 5.25" 
FD55F 720K 80 Track DS 5.25: 
FD35F 720K 80 Track DS 3,5" 



118.00 
151.00 
147.00 



DISK DRIVE CASES 

Hard Drive case with 65W PS and Fan 1 03 .50 

(Holds 2 HH hard or floppy drives + controller) 
Dual Half Height Floppy Case w/PS 75,00 

XT with AT aspect with 150 Watt PS -- 125.00 



CABLES 

ST506 Hard disk to controller, set 2 
FHL HCA/WD 40 Pin Card edge 4 1 
FHL HCA/WD 34 Pin Card edge 4' 
B&B 4' Cable Set 



28.00 
25.00 
25.00 
35.00 



CoCo DECK SOFTWARE 

B&B Hyper I/O run DECB on B&B hard drive 
B&B Hyper EH Ramdisk/ spooler for above 

sForth closeout continues (Hurry) $79.95 

CoCo OS9 Level II W/512K * 

The Wlz Cicminumicalmm software for CoCo3 $79.95 

Sculptor (BIG SALE!!!) $450.00 

Database - 4th generation language 



DynaStar Word Processor 
DynaSpell spelling checker 

by Dale Puckett 
Font Editor 

Super Sleuth disassembler 
Utlllx utilities set 
UniCharger Unix like utilities 
DYNACALC Spreadsheet 
FBL Fast Hard disk Back Up 
Pascal (Limited quanity) 
B&B Wild and MY 



BOOKS 



Inside OS9 Level II 
Starting Forth (Limited) 

PRINTERS 

Citizen 

120D 10" carriage 120CPS Draft 

120D-S Serial version of above 

Star micro nics 

ND10 10" carriage 180CPS Draft 

NX 15 15" carriage 120CPS Draft 

NB15 15" carriage 300CPS Draft 

Panasonic 

P1080i 144CPS Draft 

P1092i 240CPS Draft 

MODEMS 

Packard Bell 

FBI 200+ 300/1200 
PB2400EM 2400 baud 



S150.00 
$94.50 

$29.95 
$50.00 
$49.95 

$150.00 
$99.95 

$150.00 
$99.95 



$39.95 
$18.95 



$229.00 
$265.00 

$499.00 

$499.00 

$1399.00 

$269.00 
$499.00 



$199,00 
$595.00 



29.95 
19.95 
30.00 

69.95 
149.00 

100.00 
45.00 

19.95 
40.00 
40.00 
75.00 
85.00 
75.00 
55.00 
19.95 



29.95 
15.00 



193.00 
228.00 

332.00 
374.00 
945.00 

198.00 
392.00 



129.00 
256.00 



ORDERING INFORMATION VISA, M/C and AMEX. NY 
residents add 7% sales tax. US shipping add $3.50, Please call 
for Air Express shipping. Send for FREE FHL NewsLetter and 
catalog. 

* Most of our software requires OS9 LH and 512K. 



Frank Hogg Laboratory, Inc. 

770 James Street - Syracuse, NY 13203 
Telex 646740 - FAX 315/474-8225 

Call 315/474-7856 



HARD DISK 

SYSTEMS 

INFORMATION 

For the best and fastest hard disk 
systems, trust Frank Hogg Laboratory. 

At Frank Hogg Laboratory, we have 
taken over 3 years of our knowledge and 
expertise in the manufacture of the well 
known QT 68000 based computers and 
applied it to the CoCo. Many of the 
components used in our hard disk 
systems are the same as that used in the 

ov. 

Hard disk systems have been available 
for the CoCo for some years now, most 
are good reliable systems. However we 
have two new systems for the CoCo that 
are better. They are just as reliable as 
other systems, perhaps even more so. 
But *hey are both faster and less 
expensive. 

Our top of the line system features Bruce 
Isted's interface for the Western Digital 
WD 1002-05 high speed controller. 
Features; fastest system available, 1 
megabyte transfer in 37 seconds!!, twice 
as fast as other systems!, supports 4 
floppy and 3 hard drives, type ahead for 
both floppy and hard disk, auto boot 
OS9 L1 or L2 from hard or floppy disk. 
Disadvantage; does not support DECB. 
This is the system of choice for the 
serious OS9 user. 20 Meg systems are 
$799 and 40 Meg systems are $899. 
Other sizes are available. 

Our second system features the Burke & 
Burke XT and XT RTC interface. This 
interface uses popular and inexpensive 
IBM PC type controllers. For this reason it 
is the least expensive hard disk system 
available today. Not as fast as the Isted 
system but faster than any other system 
available. It also supports RLL drives so 
we are able to offer a 30 Megabyte 
system for only $580 COMPLETE! See 
the price list for other options. 
Disadvantage; requires a multi-pak. 
Note: DECB support and other software 
options are listed on our price list. 




ANNOUNCEMENT! 



FRANK HOGG LABORATORY 

BUYS OUT INVENTORY OF 

Sculptor! 

SELLS FOR LESS THAN 

DISTRIBUTOR COST!!! 



Frank Hogg Laboratory purchased the remaining inventory of another 
Sculptor distributor! Because we got them so low we can offer them to you 
at tremendous savings. 

Sculptor for the CoCo 111 with OS9 Level II* is 

ONLY»149 1 

$149 is below distributor cost! The list price is $450!! Once they are gone 
the prices will go back to normal. This is a great opportunity to buy the most 
powerful Database/4th Generation Language available today!!. * Requires 
OS9Llland512K. 

They won't last long. 
Hurry and get yours today!!! ! 



Also on SALE Sculp tor MS/DOS $149 
Sculptor OS9/68K $499 






See Dale Puckett's February and March 1 988 

Rainbow columns for more information on this 

great package. 



ORDERING INFORMATION VISA, M/C and AMEX. NY 
residents add 7% sales tax. US shipping add $3.50. Please call 
for Air Express shipping. Send for FREE FHL NewsLetter and 
catalog. 

* Most of our software requires OS9 LII and 512K. 



Frank Hogg Laboratory, Inc. 

770 James Street - Syracuse, NY 13203 
Telex 646740 - FAX 315/474-8225 

Call 315/474-7856 



1560 LINEINPUT" CTST: " ;C$ 

1570 LINEINPUT" ZIP : ";D$:P0KE2 

82,255 

1580 PRINT#-2,TAB(45)A$:PRINT#-2 

, TAB ( 45) BS : PRINT#-2 , TAB ( 45) C$ 

1590 PRINT#-2,CHR$(27) ;CHR$(14) ; 

: PRINT#-2 ,TAB (48) D$ : PRINT#-2 , CHR 

$ ( 2 7 ) " CHR$ ( 15 ) ' 

1600 PRINT#-2,CHR$(27) ;CHR$(19) ; 

: PRINT#-2 , CHRS ( 12 ) : GOTO90 

1610 '* PRINTER TEST ROUTINE 

1620 IF(PEEK(&HFF22)AND1)THEN163 

0ELSERETURN 

1630 SOUND200,3:PRINT@483, "*** P 

RINTER NOT READY *** " ; : FORD=lTO 

1000:NEXT:GOTO90 

1700 IFC=0 THEN90ELSE1720 

1710 '* CHECK PRINTER OPTIONS 

1720 CLS3:PRINT@33,"** hardcopy 

"BK$"routine **"; 

1730 IF(PEEK(&HFF22)ANDl)THENSOU 

ND150,5:PRINTS129, " printer IS n 

ot TURNED on "; :PRINT@225," PLEA 

SE CHECK, THEN TOUCH ";:PRINT@25 

7,;:PRINT" [SPACE] ENTER FOR MEN 

U " ;; PRINTS 2 8 9, ; : LINEINPUT" EN 

TER TO CONTINUE " ?K$JIFK$=" "TH 

EN90ELSE1720 

1740 PRINTS 9 7," DO YOU NEED A FO 

RM FEED ? ";: PRINTS 129, " (y OR 

TOUCH ANY KEY ) " ; 

1750 Y$=INKEY$:IFY$=""THEN1750 

1760 IFY$="Y"OR Y$="y"THEN 1770E 

LSE1780 

1770 PRINT#-2,CHR$(12) 

1780 GOSUB1900:CLS3 

1790 CP=0 : PRINTS 3 52 , STRING? (2,12 

8) " enter "CHR$ (128) "zero"CHRS (128 

) "to"CHR$(12 8) "return"CHR$(12 8) " 

to"CHR$ (128) M menu"STRING$ (2, 128) 

;: PRINTS 41 7,"'\* 

1800 INPUT" NUMBER OF COPIES NEE 

DED ";CP:IFCP=0 THEN90 

1810 FORZZ=lTO CP 

1820 FORE=lTO C 

1830 PRINT #-2, TAB (L) ;L$(E) 

1840 IF E=44 ORE=95 THENFRINT#-2 

,CHR$(12) :ELSE1860 

1850 IFSTS="Y"THENPRINT@481," TO 

UCH [ENTER] TO CONTINUE ";ELSE18 

60 

1860 NEXT 

1870 E=0:NEXT 

18 80 E=0:PRINT#-2,CHR$(12) ; ; GOTO 

90 

1900 CLS3:PRINT@3 3, "** LETTERHEA 

D AND » ; : PRINTS67 , " SALUTATION 

ROUTINE **"; 

1910 PRINTS129," SELECT LETTERHE 

AD »••; 

1920 PRINT@195,"[a]RTHUR S. HALL 

OCK "; 



1922 PRINT@227,"[t]EXT ONLY 

M ■ 
I 

1930 I$=INKEY$:IFI$=""THEN 1930 

1940 IFI$="A" ORI$="a" THEN1960 

1942 IFI$="T" ORI$="t" THEN2180 

19 50 IFI$="" THENRETURNELSE1940 

1960 CLS3:PRINT@33," LETTERHEAD 

FOR . . . ASHALLOCK " ,* 

1970 POKE282,0 

19 80 PRINTS 9 7 , ■ " ,' : LINEINPUT" DAT 

E ";D$ 

1990 PRINTS225," SALUTATION OR H 

EADING ";: PRINTS 289,"" ;:LINEINPU 

TSA$ 

2000 POKE282,255 

2010 LH$="Arthur S. Hallock" 

2020 AD$="Route 1, Box 198HHH 

Deming, New Mexico 88030" 
2030 GOTO2040 
2040 PRINT#-2:PRINT#-2 
2050 PRINT#-2,CHR$(27) ;CHR$(66) ; 
CHR$(27) ;CHR$(14) ', 
2060 PRINT#-2,TAB(8) ;LH$ 
2070 PRINT#-2,CHR$(27) ;CHR$(15) ; 
2080 PRINT#-2,CHR$(27) ;CHR$(29) ; 
2090 PRINT#-2,TAB(44) ;D$ 
2100 PRINT#-2,CHR$(27) ;CHR$(66) 
2110 PRINT#-2,TAB(12)AD$ 
2120 PRINT#-2,CHR$(27) ;CHR$(29) ; 
2130 PRINT#-2, STRINGS (95, 167) 
2140 PRINT#-2:PRINT#-2 
2150 PRINT#-2,CHR$(27) ;CHR$(29) 
2160 PRINT#-2, TAB (L+l ) ?SA$: PRINT 
#-2 

2170 RETURN 
2180 CLS:PRINTS33, "** TEXT ENTRY 

ROUTINE **" 
2190 POKE2 82,0 
2200 PRINTS128," " ; : INPUT"DATE " 

;D$ 

2 210 PRINTS 19 2," ";: INPUT" PAGE N 

UMBER " ; P$ 

2 2 20 PRINTS 2 5 6," ";: LINE INPUT "HE 

ADER (96 CHARACTERS, MAXIMUM) ";H 

E$ 

2 2 30 PRINT: PRINT" ";: INPUT "NUMBE 

R OF LINES OF SPACE FROM THE P 

OP OF PAGE ";N 

2240 PRINT:PRINT" " ; : LINEINPUT"T 

ITLE OF ARTICLE OR PAGE " ; 

TT$ 

2250 TT=LEN(TT$) : TU=96-TT : TA=TU/ 

6 

2260 POKE282,255 

2270 PRINT#-2,STRING$(N,10) 

22 80 PRINT#-2,CHR$(27) ;CHR$(20) ; 

2290 PRINT#-2,DS;TAB(80) "Page "P 

$ 

2 300 PRINT#-2,CHR$(27) ;CHR$(29) 

2 310 PRINT #-2, HE $ 

2320 PRINT#-2, STRINGS (96, 167) 

2330 PRINT#-2:PRINT#-2 
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234£ PRINTf?-2,CHR$(27) ;CHR$(14) ', 

235p PRINT^ -2, TAB (TA) ;TT$ 

2360 PRINT#-2,CHR$(27) ;CHR$(29) ; 

CHR$(27) ;CHR$(15) ;CHR$(27) ;CHR$( 

17)? 

2370 RETURN 

2440 K=95:P0KE282,255:BK$=CHR$(1 

28) :CLS3 

2 4 50 PRINTBK$ "letter" BK$ "writer" 

BK$"program"BK$"in"RK$"basic"BK$ 

2460 PRINT@71,"** "BK$"inain"BK$" 
menu"BK$" **" ; 

2470 PRINT@12 9 , "c" * : PRINTS 13 2 , " 
COMMENCE A NEW LETTER " ? 
2480 PRINT@161, "a"; :PRINT@164, " 
ADD TO EXISTING LETTER " ; 
2 4 90 PRINT6193, "e"; : PRINTS 19 6, " 
EDIT, INQUIRE, VIEW PAGE "; 
2 500 PRINT@225,"1" ; :PRINT@228, " 
LOAD PAGE - TAPE OR DISK " ; 
2510 PRINT@257,"h"? :PRINT@2 60, " 
HARDCOPY ON LINE PRINTER " ; 
2520 PRINT§289,"S"; :PRINT@292," 
SAVE PAGE - TAPE OR DISK " ; 
2530 PRINT@3 21,"X" J : PRINT0324 , " 
EXIT - TERMINATE PROGRAM " ; 
2540 PRINT@353 , "p" ; : PRINT@356 , " 
PRINT : FANFOLD ENVELOPE " ; 



2550 PRINT@416," NOTE: "BK$"sav 

e"BK$"page"BK$ ,, if"BK$"you"BK$"ha 

ve"BK$BK$BK$BKS"made"BKS"any"BK$ 

n changes"BK$"since"BK$"entry"BK$ 

BK$; 

2560 PRINT@486," touch MENU choi 

ce " ; 

2570 M$=INKEY$:IFM$=""THEN257^) 

2 580 ON INSTR("PWACNELHSQXTpwacn 

elhsgxt" , M$) GOTO1500 , 100 , 200 , 100 

, 100 , 400 , 1100 , 1700 , 800 , 700 , 700 , 7 

00 , 1500 , 100 , 200 , 100 , 100 , 400 , 1100 

,1700,800,700,700,700 

2590 GOTO2570 

2 600 DIR 

2610 IFINKEY$=""THEN2610 ELSE122 



2700 TD$="":IFPEEK(188)=14 THENT 

D$="DISK" ELS ETD$=" TAPE" 

2 710 IF TD$="TAPE" THENDV=-1 ELS 

E IFTD$="DISK" THENDV=1 

2720 RETURN 

9 9 99 SV$="LETRWRTR":F0RC=1T03:CL 

S3:PRINT@96," SAVING "SV$" TO TA 

PE: "C; :CSAVESV$ :MOTORON: FORD=1TO 

3000 : NEXT : NEXT : FORD=1TO5000 : NEXT 

:MOTOROFF:CLS3:PRINT@9 6," "SV$" 

IS SAVED"C-1"TIMES";:PRINT@416, ; 

•END 
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SUPER SALE! 

40% TO 33% OFF!! 



Usei — Defined Funct iciviss Sine Mjw«5 



GREAT V^AL-LJEEJ 
ORDER NOW ! > 

CQflPAT 1 BL.E 
WITH COCO 3 

JO DflV 

UNCOND I T I nNAU 1 
MONEY— BACK 
BLARflNTEE ! ! 



\ 






GRAFPLOT 



Ww-"-— *- 




i 



-j3 

Honzcnts 1-K-H^ is: Tin,*?, DiAtAlftC*! etc 
AUTOMATICALLY LOADS DATA FROM MOST POPULAR SPREADSHEETS. 
^•71 GRAPHING SYMBOLS AND UNLIMITED OVERLAY PF DATA. 
AUTOMATICALLY SCALES AND LADELS ALL THREE OF THE AXES. 
CALCULATES MATH FUNCTIONS, INTEGRALS AND HQVING AVERAGES. 
FULLY AUTOMATIC, MENU DRIVEN H/ COMPLETE ERROR TRAPPING. 
FULL-PAGE SCREENPRINTS ON ANY PRINTERl SPECIFY M|JH gjjDER . 



REWIRES 32K EXT. RASIC, TAPE 



F-Ftl ISI-TEF* 



Picture Perfect 



3CREENPRINT PROGRAI-l 



* COHPATIBLE WITH OOOO X X. I ! ! 

* "PERFECTLY SIMPLE" TO OPERATE - "SIMPLY PERFECT" RESULTS! 

* ''PERFECTLY COMPATIBLE" WITH ALL DOT MATRIX PRINTERS! 

* GET "PERFECT CONTROL" OF I HEIGHT, WIDTH, POSITION, 

BAUD RATE, DOT DENSITY, NEGATIVE IMASES, ETC. 

* THE "PERFECT SOLUTION" TO YOUR GRAPHICS PRINTING NEEDS! 

* COMPATIBLE HUH GRAPHICOM AND COCO MAX PICTURES! 

$15.00 

* ONLY JJB ■ l.l 1.1 - Olvj DISK OR T«F>EC ■« 



SEND CHECK OR MONEY OIRDEEFt TO * 

HAWKES RESEARCH SERVICES* B39 STANFORD AVE. OAKLAND. CA 94iOS 

(It FOR FREE INFORMATION IN THE MAIL, CALLl (41S) 347-7537 *» 
YOUR PERSONAL CHECK IS WELCOME! SHIPMENT WITHIN AS HOURS! 

ADD »J.0O SHIPPING ON ALL ORDERS. CA. RESIDENTS ADD SALES TAX 




flflQGHjIMS - Plftipul flit 5 . 5UPPUF5 * Sf tviCt 



Fast Delivery... 
Friendly Service 

Now in our 6th year! 



s&a&x *}f(ad2m4. 



SUPER VALUE! SUPER SPEED! 




Avaiex I200e 


$ 99 


Avaiex 2400 $229 


with Coco Cable 


109 


with Coco Cable 239 
(Coco 3 only) 

S* with RS-232 Cable* 245 



Avatex 1 200e, Cable Avatex 2400, Cable 

AUTOTERM G.1 ... $139 AUTOTERM 6.1 ... $269 

* Coco 1, 2 requires Deluxe RS-232 Pak 



Call' • Shop by Modem • 

513-396-SOFT 513-396SHOP 



2235 LosantiviMe. Cincinnati, OH 45237 

SHIPPING will b* ch t-gtd *! out actual COST 

OhiOitMdentl adrt \ SN Salt*. T#i CODiflO 2 00 
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Keep maintenance schedules for up 







wrote it down on a piece of paper 
somewhere. It was about 5,000 miles 
ago ... or was it 7,000? Maybe it was 
my wife's car, instead. My note is lost, 
and who remembers when they get oil 
changes anyway? 

Folks agree that regular maintenance 
will save them money down the road* 
but they hate the bother. Remember is 
a program to help you with the tiresome 
details. Just enter your car's mainte- 
nance schedule (by the owner's manual 
or by your own preferences) and the 
work that has already been done, and 
you have finished the hardest part. 

Later on, you enter current mileage 
and date to receive a report of what's 
needed. You can also record receipts 
such as gasoline and oil, and get a 
summary (cost per thousand miles) of 
operating expenses. You can keep track 
of up to five vehicles as the program is 
written. And, if you want, you can 
change the checklist items to suit your 
own requirements. 

Running the Program 

There are three "modules" or subpro- 
grams comprising Remember. To use 
the program, type in and save the main 
module to disk as MAIN.BflS, the data- 
base module as EXPNS.BfiS, and the 
title screen as REM . BBS. Load Mfl I N and 

Larry Anderson is an auto mechanic 
presently employed as an electronic 
technician by the U.S. Postal Service. 
He holds a bachelor's degree in English 
with minors in math and physics, and 
enjoys programming on the Co Co 3 and 
the W00 $X. His wife, Linda, uses the 
WOO SX in her job as a church secretary. 
Their daughter, Kacy, enjoys Adven- 
tures and programming. 
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to five vehicles 



GMfflfefflaoDg® iiispD 3 
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enter RUN 1400 to set up two blank files 
(vehicle names will go in these), then 
RUN "REM". Line 45 sets the baud rate 
for your printer to 9600 — you can edit 
it to whatever rate you choose. Your 
selection from the main menu sets the 
value off), which automatically sets up 
the proper sequence through the pro- 
gram and back to the main menu. 

Selection V will set up new vehicle 
files, not allowing duplicate names or 
names of more than eight characters. 
The variable N$ names the currently 
accessed vehicle, while M [ Q ) and H$ ( Q ) 
contain data about service requirements 
and the latest services done. This is 
where you enter the maintenance sched- 
ule of your choice, which can be differ- 
ent for each vehicle. Data is finalized by 
a press of the ENTER key, which allows 
for corrections by backspacing. Note 
that dates must be entered without 
slashes or dashes (/' or -). So, July 18, 
1986, would be entered as 071BBG. You 
do have the chance to start a screen over 
by pressing ENTER several times until 
the "Entries Correct Y/N?" prompt 
appears, and then pressing N. 

Select C and you will be prompted for 
a car's name, its current mileage and 
today's date. Notice that the last name 
used (which should be in the upper-right 
corner of the screen) may be entered 
without retyping, just press ENTER. 
Remember computes whether or not 
service is due. M(0) is the current 
mileage and HS(0) is the current date. 
Service is "due" if within 500 miles 
below to 1,000 miles above the desired 
interval, and "overdue" when above 
that figure. Submenu selection P gets 
you a printed copy with maintenance 
guides, and Selection E calculates a 
summary from the expenses you have 



kept for that car. The total sum of your 
expenses is SUM, which is multiplied by 
100 and divided by the mileage interval 
(in thousands) you select; the resulting 
number is converted to an integer and 
finally divided by 100. This assures a 
value in dollars and cents, not several 
decimal places. To return to the main 
menu at any time, just enter a B. 

Selection U brings you to another 
submenu to update service or expense 
records. The service update screen 
shows your previous services completed 
and allows you to change or update any 
one or all items. Pressing the ENTER key 
steps you past any entries you don't 
want to change. Step through all entries 
until the message "Entries Correct Y/ 
N?" appears. Pressing N at this point 
allows re-entry of this screen, but the 
old data displayed will not be shown. To 
redisplay old data, enter I and again 
select U. Within the record-keeping 
section, submenus allow you to review 
or change your expense records or 
return to the main menu. 

Selection I shows you the names of 
cars you already have files for, and Q 
quits the program. 

Remember accesses several files on 
your disk drive: VEH.NOX, which 
stores the names you assign to your 
vehicles; CRNT.NDX, which con- 
tains the name of the vehicle 
you last accessed; EXP 
NS.BflS, the database 
and the -DAT and 
.DTL files for each 
vehicle, which 
contain 



schedules of maintenance and expense 
records. There is, of course, the main 
program section, MfllN.BflS; and the 
title screen is handled by REM .BflS. 

A large part of this program consists 
of error traps and screen formatting. 
For instance, Line 550 ensures that 
current mileage isn't less than that of the 
last service performed. Lines 575 
through 620 make sure that your cur- 
rent date includes not more than 12 
months in the year, nor more than 31 
days in a month; nor can the dates be 
zero. Also, the current date can't be 
earlier than the last service date! Tests 
for valid names are used to avoid "near 
misses" in spelling, which could cause 
an NE Error or other errors to crash the 
program. You can always consult the 
Index to see what names you have 
already "remembered." 




The EXPNS module is a small data- 
base geared 10 work with the MAIN 
module. Three fields titled DATE, 
AMOUNT and DETAILS are filed in the 
. DTL file with that vehicle's name 
preceding it, and probably will contain 
only a few characters each. Records 
may be added, removed, or merely 
reviewed. Thanks go to Keith Baker for 
some good ideas from his cassette-based 
File-ii database. The Color Computer 
Magazine, January 1984, Page 1 17. 

No search or sort capabilities were 
included in EXPNS, and data is automat- 
ically posted to the .DTL disk files. The 
blank .DTL file was set up by MAIN so 
that you would not crash at this point 
by attempting to read a file not yet 
created. Though it has no contents at 
first, the CoCo will recognize its exist- 
ence, and later you can add records to 
it. 

You can change the items of sug- 
gested maintenance to suit your own 
preferences'. The ones included are the 
items I rate most important. Take care 
of your car, let Remember do the detail 
work that nobody likes, and enjoy a real 
advantage in reliability and savings! 



•►•MAINTENANCE FOR SAMPLE »■« 
B2/B2/BG 40U0O MILES 



I teiTi* 

OIL CHANGE 
OIL CHANGE 
LUEE 
TUNE UP 
EELTS/HOBES 



Dud 
G 



Mi les to go 



C=Calendar interval, M=ttileage interval 



CHECK LIST! 



Change Di 1 and filter, ■ . check fluid levelg under hood. . . check for any 
leal. age, battery corrosion, loose belts, etc. 



Lube all i i tl i rigs, . . ui L door hinges and strikers, hDDd hinges, etc.. 
check transmission ft differential. Inspect enhaust system. Check for 
damage under car. 



Tune up engine. .. change spark plugs, air snd fuel filters, check plus 
wires and ignition system, ,, check PCV and brea ther * , , check timing and 
idle spped. ,. choke action when applicable. .. check overall performance. 



Bel ts/hoaes. . * cheel: belt tension and Condi t ion, ■ .hoses for softness or 
deter iorat ion, .. cl amps for tightness. .* radiator should be free of debris 
in cooling fins, and should be free from leakage. Also inspect brake linings 
and operation. Check tires for tread depth and even wear. 

PERFORMED ABOVE I I EMS (MI LEASE ft DATE FOR SEf(V I CE UPDATE 1 



Happy motoring (and computing)! at 202 Jackson St., Benton, LA 7/066. 

(Questions or comments about this Please enclose an SASE when writing 

program may be directed to the author for a response.) □ 
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r~ 


jr 


...235 810 ... 


...86 




v 


*m 






140 ... 


...108 915 ... 
...210 1000 .. 


25 
....67 






230 .. . 




270 .. 


9 1075 . . 


...151 




350 . . . 


...202 1135 .. 


....39 




425 .. . 


...237 1160 .. 


...242 




515 .. 


... .59 1220 .. 


...189 




590 . . , 


...119 1280 .. 


..,250 




665 .. 


...87 1375 .. 


. . . 235 




735 


...101 END .. 


106 



Listing 1: MAIN 



5 ' 

10 
15 

20 

25 

30 
35 



****** * REMEMBER* ******* 
*********V1 .01********* 

■ *****COPYRIGHT 1985**** 

*********************** 

■ *********************** 

***BY LARRY ANDERSON*** 
'*********************** 

***BOX 180 BENTON LA*** 
I*********************** 

*********************** 
* 



40 

45 

50 

E 

55 

60 



CLS3:CLEAR5000 
POKE150,1'***** 
GOTO1350 ****** 



9600BAUD POKE 
PC LEAR ROUT IN 



DIMA$(150) ,B$(150) ,C${150) 
0$="r e m e ra to e r":Ul$=STRI 
NG$(8,128)+"MAIN MENU" :U2$=STRIN 
G$ (6 , 128) + "NEW VEHICLE" : Z$=CHR$ ( 
128) 

65 W$=STRING$ {8 , 128) +"@escapes"+ 
Z$+"to"+Z$+"menu"+STRING${7,12 8) 
70 CLS3:PRINTU$; :G0TO855 
75 CLS3: PRINT© ,U$ ; : PRINT@15,U1 
$; : PRINTS 105 , "Vehicle"+Z$+" entry 
"; STRINGS (3, 12 8) ; : PRINT@169 , "Che 
ck'< + z$+"if"+Z$+"service";:PRINT@ 
201," is"+Z$+"due"; 
80 PRINT@208, STRINGS (9, 128) ; 
85 PRINTQ265, "Update"+2$+"vehicl 
e", STRINGS (2, 12 8) ; : PRINT<§297 , " h 
istory"; STRINGS (8, 128} ; :PRINT@3 6 
1, "Index" ; STRINGS (11, 128) ; 
90 PRIMT@425, "Quit" ; STRINGS ( 12 , 1 
28) ; 

95 GOSUB1440 

100 B$="VCUIQ":A=INSTR(B$,A$) 
105 ON A GOTO385,450,745,1375,13 
10:GOTO9 5 

110 ****** ENTER MAINTENANCE SCH 
EDULE 



60 
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115 

8); 
OR: 
28) 
120 



CLS : PRINTS0 ,U$+STRING$ (17, 12 

:PRINTS32," ENTER INTERVALS F 

";N$; :PRINT@64,STRING$(3 2,1 



MILES?" 



PRINTS96," OIL CHANGE EVERY 

MILES":PRINT@128," 

OR WITHIN . , MOS." 
125 FRINTS192," 1UBRIGATE EVERY 

MILES" :PRINT@224," 

OR WITHIN . . MOS . " 
130 PRINTS288," tUNE UP EVERY 

MILES": PRINTS 3 20," - 

OR WITHIN . . MOS." 
135 PRINTS 3 8 4," bELTS/ ETC. EVERY 

MILES" : PRINTS 4 16," 

OR WITHIN . . MOS." 
140 PRINT@480,W$; : POKE1535 , 128 : L 
=114:Q=1 

14 5 FORP=1T04:FORC=1T02:IFC=1THE 
NN=5ELSEN=C 

150 D$="":PRINT@L,CHR$ (133) ; 
155 GOSUB1440 

160 IFA$="@"THEN1355ELSEIFASC(A$ 
)=8THEN710 

165 IFASC(AS)=13THEN Z=LEN(D$):P 
RINT@L, STRING$ ( Z+l , 143 } ; : PRINTSL 
,D$;:D(Q)=VAL(D$) :GOT0195 
170 IFASC(A$}<48 GRASC(A$)>57 TH 
EN155ELSED$=D$+A$ : PRINTSL, D$ ; : D ( 
Q)=VAL(D$) 

175 IFLEN(D$)=>N THEN 180 ELSEPR 
INT@L+LEN(D$) ,CHR$(133) ?:GOT0155 
180 PRINT@L+LEN(D$) ,CHR$(133) ; 
185 GOSUB1440 

190 IFASC(A$)=8THEN710ELSEIFASC( 
A$)<>13THEN185 

19 5 PRINTS L+LEN(D$) ,CHR$(14 3) ; :P 
RINT@L+N+1,CHR$(143) ; :L=L+35:Q=Q 
+ 1 

200 NEXT C 
205 L=L+2 6 
210 NEXTP 

215 PRINT@0,STRING$(32,191) :PRIN 
TS32 f " entries"+Z$+"correct" ; 
:POKE1075 , 63 : PRINTS 52 , "Yes" ; :POK 
E1079,47:PRINTS56, "No" 
220 GOSUB1440 

225 B$="NYS":W=INSTR(B$,A$) 
230 ONW GOT0115, 240, 1355 :GOTO220 
235 ****** REQUEST CURRENT DATA 
240 CLS0: PRINT @0,U$; : PRINTS 3 2, "C 
URRENT DATA FOR: ";N$ :PRINT@64, 
STRING$(3 2,12 8) ; :PRINT"LAST OIL 

CHG. MILES?" ? : PRINT" 

DATE PERFORMED ?" 

245 PRINT: PRINT "LAST LUBED 

MILES?" ;: PRINT" DATE P 

ERFORMED ?" 

250 PRINT :PRINT"LAST TUNED 



: PRINT" 

"7 11 



DATE P 



ERFORMED 

255 PRINT: PRINT "CKD BELTS &HOSES 

MILES?"; :PRINT" DATE P 

ERFORMED ?": PRINTS 4 80, 

W$,*:POKE1535,128 

2 60 IFA=3THENPRINT@8 2, "new";STRI 

NG$(6,128) fold"; 

265 IFA=3THENPRINT@121," "; 

:PRINT@128-LEN(H$(1)) ,H$(1) ; : PRI 

NTS152,LEFT$(H$(2) ,2) ;"/";MID$(H 

$(2) ,3,2) ;"/";RIGHT$(H$(2) ,2) ;:P 

RINT@217," " ; : PRINTS224-LEN 

(H$(3) ) ,H$(3) ;: PRINTS 2 4 8, LEFT? (H 

${4) ,2) ;"/";MID$(H$(4),3,2);V , ^• 
RIGHT$(H$(4) , 2) ; 

270 IFA=3THENPRINT@312," " ; 
:PRINTS3 20-LEN(H$(5)) ,H${5) ; : PRI 
NT@3 44,LEFT$(H$(6) ,2) ;"/";MID$(H 
$(6) ,3,2) ; n /"?RIGHT$(H$(6),2) ;:P 
RINTS409," "; : PRINTS416-LEN 
(H$(7) ) ,H$(7) ;: PRINTS 4 40, LEFTS (H 
$(8), 2) ; I '/";MID$(H$(8),3,2) ;"/»; 
RIGHTS (H$ (8) ,2) ; 
275 ' 
280 L=112:Q=1:N=6 



TANDY COMPUTER 
DISCOUNTS 

COLOR COMPUTERS 



26-3334 CoCo 3 


170.00 


26-3215 CM-8 color monitor 


259,95 


PRINTERS 




26-2802 DMP 106 


179.95 


26-2008 DMP 440 


599.00 


26-1280 DMP-130 


279.00 


Complete line of Tandy (Daisy Wheel) print wheels 




MSDOS COMPUTERS 




25-1052 Tandy 1000 SX 


750.00 


25-1053 TANDY 1000 HX 


599.00 


25-1600 TANDY 1000 TX 


999.95 


25-1023 CM-5 color monitor 


249.95 


25-1020 VM-4 Monochrome monitor 


110.00 



We Carry the Complete Line of Tandy 
Computer Products at Discount Prices 

CALL FOR A FREE PRICE LIST 800-257-5556 
IN N.J. CALL 609-769-0551 

WOODSTOWN ELECTRONICS 

Rt. 40 E. WOODSTOWN, N.J. 08098 
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285 FORP=1T04:FORC=1T02 


cle" + Z$-f-"name"+Z$ ; : PRINT© 4 80 , W$ ; 


2 90 D$="" : PRINT @L,CHR$( 133) ; 


:POKE1535,128:PRINT@33 2," 


295 GOSUB1440 


n i :PRINT@332,""; 


300 IFA$="@ M THEN13 55ELSEIFASC(A$ 


455 LINEINPUTN1$:PRINT©3 40,STRIN 


)=8THEN705 


G$ ( 12 , 175 ) ; : TEMP$=N$ : IFN1$=" "AND 


305 IFASC (A$)=13THEN Z=LEN(B$):P 


N$<>""THEN790ELSEIFN1$="@"THEN75 


RINTgL, STRING? ( Z+l , 143 ) ; : PRINT@L 


ELSEN$=N1$:GOTO1170 


,D$;:H$(Q)-D$:GOT0335 


460 IFN$=""ORN$="@"THEN75 


310 IFASC (A$)<48 ORASC(A$)>57 TH 


465 OPEN ,, I",#l,N$+»/DAT ,, 


EN295ELSED$=D$+A$ : PRINTQL, D$; :H$ 


470 FOR Q=1T08:INPUT#1, D(Q),H$( 


(Q)-DS 


Q) 


315 IFLEN(D$)=>N THEN320 ELSEPRI 


475 H(Q)=VAL(H$(Q)) 


NT@L+LEN{D$) ,CHR$(13 3) ;:GOT0295 


480 J(Q)=0:J1(Q)=0 


320 PRINT@L+LEN(D$) ,CHR$(133) ; 


485 NEXT Q 


325 GQSUB1440 


490 CL0SE#1 


3 3J3 IFASC (A$)=8THEN705ELSEIFASC( 


495 IFA=3THEN240 


A$)=13THEN335 ELSE325 


500 CLS3 : PRINT ©0 ,U$ J : PRINT© 24 ,NS 


3 35 PRINT@L+LEN(D$) ,CHR$(143) ;:P 


;: PRINT© 19 6, Z$+" enter "4-Z$+»curre 


RINT8L+N+1 , CHR$ ( 143 ) ; : L=L+32 : Q=Q 


nt"+Z$+"mileage M +Z$ ; : PRINT@300 , " 


+ 1 


"; :PRINT©4 80,W$; :POKE153 5, 


3 40 NEXT C 


128 


345 L=L+32 


505 D$="":N=1 


350 NEXTP 


510 GOSUB1440 


355 PRINT@0,STRING$(3 2,191) : PRIN 


515 IFA$=" © "THEN75ELSEIFASC (A$ ) = 


T@32 , " entries"+2$+"correct" ; 


8THEN700ELSEIFASC (A$) =13THEN545 


: POKE107 5 , 63 : PRINT© 52 , "Yes" ; ;POK 


520 IFASC (A$)<48 ORASC(A$)>57 TH 


E1079 , 47 : PRINT@56 , "No" 


EN510 ELSE525 


360 GOSUB1440 


525 D$=D$+A$: PRINT© 300, D$; 


365 B$="NY@":W=INSTR(B$,A$) 


530 N=N+1:IF N<=6 THEN 510 


370 ONW GOTO240, 800, 1355 ;GOTO360 


535 GOSUB1440 


375 ****** (A=l) NEW VEHICLE ENT 


540 IFASC (A$)=8THEN700ELSEIFASC( 


RY 


A$) =13THEN545ELSE535 


380 Z$=CHR$(128) 


545 M(0)=VAL(D$) 


385 CLS3:PRINT@0,U$+U2$; :PRINT@1 


550 FORQ=1TO7STEP2:IFM(0)<VAL(H$ 


99 , "name"+Z$+"you"+Z$+"will"+Z$+ 


(Q) )THEN1365 


"use"+Z$; :PRINT@2 31,Z$+"for"+Z$+ 


555 NEXTQ 


"this"+Z$+»'vehicle"+ZS; :PRINT@48 


5 60 CLS3:PRINT@0,U$; :PRINT@24,N$ 


0,W$r :POKE1535,128 


; : PRINT@197 , ZS+"enter"+Z$+"curre 


390 PRINTS 3 64," ";: PRINTS 


nt"+Z$+"date"+z$; :PRINT@300," 


3 64 , "" ; : LINEINPUTN1$ 


" ; :PRINT@4 80,W$; : POKE153 5, 12 8 


395 PRINT@372,STRING$ (12,175) ; ; I 


:D$="»':N=1 


FN1$=""THEN385ELSEIF N1$="@"THEN 


565 GOSUB1440 


75 


570 IFA$="@"THEN75ELSEIFASC(A$)= 


400 FORQ=lTO LEN(N1$) : IFASC (MID$ 


8THEN715ELSEIFASC (A$) =13THEN625 


(N1$,Q,1) )<48 OR ASC(MID$(N1$,Q, 


575 IFASC{A$)<48 ORASC(A$)>57 TH 


1))>90 THEN N1$="":G0T0385 


EN565 


405 NEXT Q 


580 D$=D$+A$:PRINT@300,D$; 


410 TEMP$=N$:N$=N1$:GOTO1170 


585 IFN=2THENV$=MID$(D$,1,2) :IFV 


415 CLS 3: PRINT© 2 6 6," SAVING DATA" 


AL(V$)>12 OR VAL(VS)=0 THEN 1030 


4 
t 


590 IFN=4THENV$=MID$(D$,3,2) : IFV 


420 OPEN"0" ,#l,N$+"/DAT" 


AL(V$)>31 OR VAL(V$)=0THEN1030 


425 FOR Q=1T08:WRITE#1,D{Q) ,H$(Q 


595 N=N+1:IFN<=6 THEN 565 


) 


600 GOSUB1440 


430 NEXT Q 


605 IFASC (A$)=8THEN715ELSEIFASC( 


435 CLOSE#l 


A$ ) =13THEN610ELSE600 


440 GOT0965 


610 FCRQ=2T08STEP2:IFRIGHT$(D$,2 


445 "***** (A=2) CHECK FOR SERVI 


)<RIGHT$(H$(Q) ,2)THEN1030 


CE DUE 


615 IFRIGHT$(D$,2)=RIGHT$(H$(Q) , 


4 50 CLS3:PRINT@0,U$? : PRINT© 2 4, N$ 


2 ) ANDLEFTS (D$ , 2) <LEFT$ (H$ (Q) , 2 ) T 


; :PRINT@169,Z$+"what"+Z$+"is"+Z$ 


HEN1030 


+"the"+Z$+z$; :PRlNT@20l,Z$+"vehi 


620 NEXT Q 
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625 H$(0)=D$ 

630 FORT=1TO300:NEXTT 

635 M$=STR$(M(0) ) :Z=LEN(M$) :CLS3 

:PRINT@0,U$; : PRINTS 67 ,N$ ; " . . . ":P 

RINTS85-Z,M(0)" MILES"; :PRINT@9 6 

, " MAINTENANCE DUE " ; : P0KE1117 , 

175 : P0KE1118 , 17 5 : P0KE1119 , 175 

640 PRINT"FOR / / ";:PRIN 

T@117,LEFT$(H$(0) ,2) ;:PRINT@120, 

MID$(H$(0) ,3,2} ;:PRINT@12 3,RIGHT 

$(H$<0),2); 

645 PRINT@128,STRING$(32,32) ; 

650 F0RQ=1T07STEP2:M(Q)=D(Q)+H(Q 

) 

655 T$(1)="0IL CHANGE":T$(3)="LU 

BE'* : T$ ( 5 ) ="TUNE UP*' : T$ ( 7 ) =" BELTS 

/HOSES" : IF If (J8) >=M(Q) +1000THEN7 2 

5 

660 IF M(0)<M(Q)+1000 AND M(0)>M 

(Q) -500 THEN7 3 5ELSEPRINTCHR$ ( 14 3 

) ;T$(Q) ;" IN";M(Q)-M(0) ; "MILES" : 

J(Q)=3 

665 NEXT Q 

670 GOSUB910 

675 PRINTS487 , "Print" ; ; POKE1516 , 

47 : PRINTS493 , "Expenses" ; : POKE152 

5,47:POKE1526,12 8:POKE152 7,64 

680 GOSUB1440 

685 B$="PE@":W=INSTR(B$,A$) 

690 ONW GOTO1040, 1210, 75:GOTO680 

695 i***** BACKSPACE/CORRECTION 

700 Z=LEN{D$) :IFZ<1THEN510ELSED$ 

=LEFT$(D$,Z-1) : PRINTS 300, " 

" ; : PRINTS 300 , D$ ; :N»N-1 :GOTO510 

705 Z=LEN(D$) :IFZ<1THEN295ELSE D 

$=LEFT$(D$,Z-1) :PRINT@L,STRING$( 

Z- 1,143) ;CHR$(133) ;CHR$(14 3) J : PR 

INT@L,DS; :GOT0295 

710 Z=LEN(D$) :IFZ<1THEN155ELSE D 

$=LEFT$ (D$ , Z-l) : PRINT© L, STRING$ { 

Z-1,143) ;CHR$(133) ;CHR$(143) ; : PR 

INT@L,D$; :GOT0155 

715 Z=LEN(D$) :IFZ<1 THEN 565ELSE 

D$=LEFT$(D$,Z-1) :PRINT@300," 

"; : PRINTS 3 00, D$; :N=N-l:GOT0565 
7 20 '***** SERVICE •FLAGS' 
725 PRINTCHR$(191) ; T$(Q);" OVER 
DUE":J(Q)=2 
730 G0TO665 

735 PRINT CHR$(159) ,*T$(Q) ;" SVC 
DUE":J(Q)=1 
740 GOT0665 

745 ****** (A=3) UPDATE RECORDS 
7 50 CLS3:PRINT@0,U$; :PRINT@2 4,N$ 
; : PRINTS233 ( "Service"+z$+"update 
" ,• : PRINTS 2 97 , "Expense"+z$+"recor 
d"; 

755 GOSUB1440 

760 B$="ESS":W=INSTR(B$,A$) 
765 ONW GOTO1300,775,75:GOTO755 
77J3 ****** SERVICE UPDATE 



775 CLS3 : PRINTS , U$ ; : PRINTS 2 4 , N$ 

; : PRINTS232 , Z$+"new"+Z$+"data"+Z 

$+"for"+Z$+Z$ ; i PRINTS264 , Z$+"veh 

icle"+Z$+"named"+Z$; : PRINT@480, W 

$; :POKE15 3 5,12 8:PRINT@3 31," 

"; :PRINTS331, ""; 

780 LINEINPUTN1$: IFN1$="S"THEN75 

ELSEIFN1$=""ANDN$O""THEN790ELSE 

IFN1$<>""THENN$=N1$ 

785 GOTO1170 

790 PRINT@332,N$; :PRINT@3 40,STRI 

NG$(12,175) ;:GOTO460 

795 IFA=2THEN445ELSEIFA=3THEN775 

:GOT07 5 

800 IFA=1THEN415ELSEIFA=3THEN810 

;GOT07 5 

805 ****** WRITE UPDATES TO "/ DA 

T" FILE 

810 CLS3:PRINT@266," SAVING DATA 
ii ■ 

815 OPEN"I",#l,N$ 

820 OPEN"0",# 2, "TEMP/DAT" 

825 FOR Q»lT08:INPUT#l f B(Q),E${ 

Q) 

830 IF H$(Q)<>"" THEN E$(Q)=H$(Q 

) 

835 WRITE#2,B(Q) ,E$(Q) 
840 NEXTQ 
845 CLOSE 

8 50 KILLN$+"/DAT" : RENAME "TEMP/ DA 
T"TO N$+"/DAT":GOT075 
855 '***** CHK. VEH/NDX AND CRNT 
/NDX 

8 60 OPEN "I", #1, "VEH/NDX" 
865 F0RQ=1T05 

870 INPUT#1,N$(Q) :IFN$(Q)=""THEN 
885 

875 IF EOF(l)=-l THEN885 
880 NEXTQ 
885 CLOSE#l 

890 IFA=0THENOPEN"I" , #1, "CRNT/ND 
X"ELSE75 ' *****READ FIRST TIME 
ONLY 

895 INPUT#1,N$ 
900 CLOSE#l:GOT075 
9j35 i*A*** DATE CALCULATIONS 
910 FOR Q=2T08STEP2 
915 MO(Q)=VAL(LEFT$(H$(Q) , 2 ) ) : DA 
(Q)=VAL(MID$(H$(Q) ,3,2)) ;YR(Q)=V 
AL(RIGHT$(H$(Q) ,2)) 
920 M0=VAL(LEFT$(H$(0) ,2)) :D0=VA 
L(MID$(H$(0) ,3,2)) :Y0=VAL(RIGHT$ 
(H$(0) ,2)) 

925 Y(Q)=(Y0-YR(Q) )*360 
930 T$(2)="OIL CHANGE" :T$( 4) ="LU 
BE" : T$ ( 6) ="TUNE UP" : T$ ( 8 ) ="BELTS 
/HOSES" 

935 I(Q)=(((M0-l)*30+D0+Y(Q))-({ 
MO(Q)-1)*30+DA(Q})) 

940 IF I(Q)>D(Q)*30-15 THEN PRIN 
TCHR$(17 5); T$(Q)f" BY CALENDAR" 
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:J1(Q-1)=1 

945 NEXTQ 

950 RETURN 

955 CLS3:PRINT@0,U$+STRING$(6,12 

8) ;: PRINT @ 21, "NEW VEHICLE" ;: PRIN 

T@231,"NAME ALREADY USED"; : SOUND 

200 , 5 : SOUND150 , 10 : F0RT=1T0425 :NE 

XT:GOT03 85 

96j3 <***** WRITE NEW VEH. TO FIL 

E AND OPEN BLANK "/DTL" FILE 

9 65 OPEN"0" / #l / ,i VEH/NDX" 

970 F0RN=1T05:WRITE#1,N$(N) 

97 5 NEXT N 

980 CL0SE#1 

985 OPEN"0",#l,N$+"/DTL" 

990 WRITE#1,A$(0) ,B$(0),C$(0) 

995 CL0SE#1:G0T075 

1000 i***** CHECK MAX. f VEHICLE 

S 

1005 N=l 

1010 IFN$(N)=N$THEN955 

1015 IFN$ (N) =" "THENN$ (N) =N$ :M=N : 

G0T0115 

1020 N=N+1:IFN>5THENCLS3:PRINT@2 

60, "LIMIT 5 VEHICLES" ; : FORT=0TO3 

00:NEXTT:GOTO75 

1025 GOTO1010 

1030 CLS3:PRINT@264,"NOT A VALID 

DATE" f : FORX=0TO300 : NEXT 
1035 GOTO560 

1040 t***** PRINTOUT OF SERVICE 
DUE 

1045 PRINT@448," BE SURE THE PRI 
NTER IS ONLINE " 
1050 PRINT#-2,STRING$(6,13) 
1055 PRINT0448, STRINGS (32, 175) ; 
1060 PRINT#-2,TAB(28) "***MAINTEN 
ANCE FOR »N$"***" 

1065 PRINT#-2,TAB(28)LEFT$(H$(0) 
,2) ;"/" ;MID$(H$(0) ,3,2) ;"/";RIGH 
T$(H$ (0) ,2) ;TAB(44)M(0) " MILES": 
PRINT#-2, STRINGS (80, 61) :PRINT#-2 
/•Item:"; TAB (30) "Due" ; TAB (40) "Ov 
erdue", -TAB (55) "Miles to go" 
1070 F0RQ=1T07STEP2 
1075 P (Q) =0 : IFJ (Q) =2THENJ$ (Q) ="M 
":T=43:GOTO1090 '****SVC. OVERDU 
E ■ FLAG ' 

1080 P(Q)=0:IFJ(Q)=1THENJ$(Q)="M 
":T=31:GOTO1090 '****SVC. DUE 'F 
LAG* 

1085 P (Q) =0: IFJ1 (Q) =1THENJ$ (Q) =" 
C":T=31ELSE1095 > ****DUE BY CALE 
NDAR ' FLAG ' 

1090 P(Q)=1:PRINT#-2,TAB(3)T$(Q) 
;TAB(T)J$(Q) 

1095 M$=STR$(M(Q)-M(0) ) :IFJ(Q)-3 
THENPRINT#-2,TAB(3)T$(Q) ; TAB (65- 
LEN(M$) )M$ 
1100 NEXTQ 
1105 GOTO1130 



1110 F0RQ=1T07STEP2:IFP(Q)=1THEN 

1120 »****' FLAG* TO PRINT SVC. S 

UMMARIES 

1115 NEXTQ 

1120 IFQ=1THEN1135ELSEIFQ=3THEN1 

140ELSEIFQ=5THEN1145ELSEIFQ=7THE 

N1155 

1125 IFQ<7THEN1115ELSEPRINT#-2," 

PERFORMED ABOVE ITEMS 

. (MILEAGE & DATE FOR SERVI 

CE UPDATE) "; STRINGS (5, 13) : GOT012 
10 

1130 PRINT#~2,CHR$(13) ;TAB(15) "C 
=Calendar interval, M=Mileage in 
terval";STRING$(3,13) :GOTO1110 
113 5 PRINT# -2, "CHECK LIST:";CHR$ 
(13) ;CHR$(13) ;TAB(3) "Change oil 
and filter .. .check fluid levels 
under hood. . .check for any 

leakage, battery corrosion, 

loose belts, etc. " ;STRING$ (2 , 13 
) : GOTO 11 2 5 

1140 PRINT#-2,CHR${13) ;TAB{3)"Lu 

be all fittings. . .oil door hinge 

s and strikers, hood hinges, etc 

check transmission 

& differential. Inspect exhaus 
t system. Check for da 

mage under car . " ;STRING$ (2 , 13) : G 
OT01125 

1145 PRINT#-2,CHR$(13) ;TAB{3) "Tu 
ne up engine. . .change spark plug 
s, air and fuel filters, check p 
lug wires and ignition 

system. . .check PCV and breather 
...check timing and " 
1150 PRINT#-2,TAB(3) "idle speed. 
..choke action when applicable., 
.check overall performance. " ;STR 
ING$(2,13) :GOT01125 
1155 PRINT#-2,CHR$(13) ;TAB(3)"Be 
Its/hoses. . .check belt tension a 
nd condition. . .hoses for softnes 
s or deterioration. . . cl 

amps for tightness. .. radiator sh 
ould be free of debris" 
1160 PRINT#-2,TAB(3) "in cooling 
fins, and should be free from le 
akage. Also inspect brake lining 
s and operation. Check tires 

for tread depth and even wear." 
,'STRING$(2,13) :GOT0112 5 
1165 ****** CHECK MAX. 8 CHARACT 
ERS 

1170 IFLEN(N$)>8THENCLS3:PRINT@0 
, U$ ; : PRINTS 2 60, "ONLY 8 LETTERS A 
LLOWED " ,' : N$=TEMP$ : SOUND200 , 5 : SO 
UND150,10:FORT=1TO400:NEXT T:ON 
A GOT0385,445,775,855 
1175 ON A 00101005,1185,1185,855 
1180 ****** CHK. FOR NAME IN "V 
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EH/NDX" 

1185 FORQ=lT05:IFN$(Q)=N$THEN46j3 
119,0 IFNS (Q) =" "THENCLS3 : PRINT@j3 , 
U$;: PRINTS 2 60, "NO VEHICLE BY THA 
T NAME" ; :SOUND200,5:SOUND150,10: 
FORT=1TO45,0 : NEXTT : N$=TEMP$ : GOT07 
95 

1195 NEXTQ 

1200 CLS3:PRINT@260,"NO VEHICLE 
BY THAT NAME"; :FORT= 1T0 35 J3: NEXT 
T:GOT07 95 

1205 ****** CPTM COMPUTATION 
1210 CLS3:SUM=0:PRINTU$;:PRINT@2 
PRINT@2 66, "please"+Z$+"wait 



4,N$i 
ii • 



1215 FORQ=1TO150 : B$ (Q) =" " : NEXTQ 

1220 OPEN"I" / #l,N$+"/DTL" 

1225 FORQ=1TO150:INPUT#1,A$(Q) ,B 

$(Q) ,C$(Q) :1FA$(Q)=""THEN1245 

1230 IFE0F(1)=-1THEN1245 

1235 SUM=SUM+VAL(B$(Q) ) 

1240 NEXTQ 

1245 CLOSE#l 

1250 CLS3 : PRINT@229 , "start"+Z$+" 

f iguring"+Z$+ l, costs"+Z$+Z$+Z$ ; :P 

RINT@261 , Z$+Z$+Z$+"at"+Z$+"what" 

+ZS+"mileage l, ;STRING$(5,128) ; :PR 

INT@3 64," "; 

1255 PRINT@0,U$; : PRINT@24 ,N$ ; : PR 

INT@3 64 ,"•»;: LINEINPUTMI$ : PRXNT@3 

70,STRING$(14,175) ; :Z=LEN(MI$) :I 

FMI$=""THEN1250ELSEIFMI$="@"THEN 

75 

1260 FORQ=lTOZ : IFASC (MID$ (MI$ , Q , 

1) )<480RASC(MID$(MI$,Q,1) ) >57THE 

NMI$="":GOTO1250 

1265 NEXTQ 

1270 MI=VAL(MI$) :Y=(M(0)-MI)/100 

$ 

1275 CLS3:PRINTU$; :PRINT@2 4 ,N$ ; : 

PRINT@99, STRINGS (25,32) ,* : PRINTS 9 

9,"FROM"MI"TO"M(0) "MILES"; 

1280 PRINT9163, STRINGS (25,32) ;:P 

RINT@16 3 , "EXPENSE TOTAL: " ; : PRINT 

@179, USING" $$###.##" ;SUM; 

1285 PRINT@259," COST PER THOUSA 

ND MILES "; :PRINT@291, " OF DRIVI 

NG: "; :PRINT@307, USING" $$###. 

## U ;INT(SUM*100/Y)/100; : PRINTCHR 

$(32) ; 

1290 PRINT@480,W$; : POKE1535, 128 

1295 A$=INKEY$:IFA$="(a"THEN7 5ELS 

E1295 



1300 
GRAM 
1305 
1310 
1315 
1320 
1325 
IT 



<***** LEAVE "MAIN/BAS" PRO 



OPEN"0" , #1, "CRNT/NDX" 



WRITE #1,N$ 
CLOSE 

IFA=5THEN13 40 
QUITS 



*****CALLING 



Coco Graphics Designer 

Only $29.95 



The Coco Graphics Designer pro- 
duces beautiful Greeting Cards, 
Banners, and Signs for holidays, 
birthdays and other occasions. 

The program features picture, 
border, and character font editors, 
so that you can modify or expand 
the already built in libraries. Plus 
a special "grabber" utility is in- 
cluded to capture areas of high 
resolution screens for your picture 
library. 

Requirements: a Coco I, II or III 
with at least 32K, one disk drive, 
BASIC 1.0/1.1, ADOS 1.0/1.1 or 
JDOS. Printers supported in- 
clude; Epson RX/FX, Gemini 10X, 
SG10, NX10, C-ltoh 8510, DMP 



100/105/110/130/430 CGP220, 
many Okidata (check with Ze- 
bra), Seikosha G PI 00/250, Goril- 
la Banana, Legend 808. 
#C323 Coco Graphics Designer 



Picture Disk #1 

This supplementary picture li- 
brary diskette contains over one 
hundred additional pictures. 
#C333 Picture Disk #1 $14.95 



Colored Paper Packs 

150 sheets (50 each red, yellow, 
blue) with 60 matching enve- 
lopes Perfect for making your 
productions outstanding. 
#C274 Paper Pack $19.93 




It's fun making your own Greeting Cards, Signs, and Banners with Ze- 
bra's Coco Graphics Designer. 



WICO 

TRACKBALL 

Only $29.95 

Order Cat#TBCC 





WICO designed these trackballs 
specifically for the Radio Shack 
Color Computer joystick port. Fea- 
tures 360-degree movement and 
quick-action fire button (or smooth, 
arcade response and (eel. Works 
great with Coco joystick and 
mouse soltware. 



The Car Sign Designer program en- 
ables you to easity create distinc- 
tive bright yellow diamond shaped 
car signs. Everything you need is 
provided including two reusable clear 
plastic sign holders with suction 
cups, 50 sheets of bright yellow 
fanfold paper, and the Car Sign De- 
signer program disk and inslruc- 
tions. •■■ Hardware, DOS, and 
printer requirements are the same 
as for our CoCo Graphics Designer 
above. Order Cat#CSCC, $29.95. 
For six additional sign holders, order 
Cat#CS6PK $9.95. 



Ordering Instructions: All or- 
ders add $3.00 Shipping & Han- 
dling. UPS COD add $3.00. VI- 
SA/MC Accepted. NY residents 
add sales tax. 



Zebra Systems, Inc. 

78-06 Jamaica Avenue 
Woodhaven, NY 11423 

(718) 296-2385 
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Save $200 on Magnavox Monitors 
Magnavox 8CM643 RGB Analog only $385!! 




MONITORS 



123A 



MAGNAVOX 7622 

12" Amber Screen offers 9DD dots x 
350 lines resolution at 20 MHz on a 
dark glass anti-glare CRT with buill- 
in audio and 1 year warranty. 



REPEAT OF A SALE OUT 

We closed out Zenith's line of 123A 
12" Green Screen Monitors with 640 
x 240 resolution one year ago. Now 
with a special puchase we offer them 
one more time. This monitor offers 
00 column resolution at 15 MHz. 



$67.50 



{S7 Shipping) 



$88 



has 



(*7 shipping) 

MAGNAVOX 
8 CM 515 

analog RGB for CoCo 3, TTL RGB 
for Tandy 1000 or IBM PC's, and 
composite color for Co Co 2 and 3. 
Built-in speaker. 14" screen with 
640 dot x 240 line resolution. Plus 
2 years parts and labor warranty. 

teg. list S499 

SAVE 

$200 

$298 

+ S14 Shipping 

CC-3 Magnavox RGB cable, 

only ^I9l9w with 
Magnavox Monitor order. 
S29.9S w/o monitor. 



VA-1 for monochrome monitors 

only, fits all color computers 



$24.45 



($2 Shipping) 




MAGNAVOX 

CM 8505 has analog RGB 
and TTL RGB and composite 
color input. Built in speaker. 13" 
screen with 390 dots x 240 reso- 
lution in RGB mode. Plus 1 year 
parts & labor warranty. 

reg. list *299 

SAVE 

*79 



$220 

+ S14 ShippJng 




UnlVC V i • Howards Drive Ogives you a 
DD-3 MP! drive, a CA-1 cable and a J&M DC-4 Disk Controller 
for only. Double sided double density 360rj 

$178 45 



($5 shipping) 
Add S34 for a Disto DC-3 



Double sided 
Double density 
360K 




20 MEG HARD DRIVE 



$699 
$499, 



• pre- installed, formatted and ready to run 

• equlvalanl to 125 R.S. SOI's or line 

• Includes Western Digital WD1D02-WK1 Controller 

• and Seagate 20 Mag Hard Drive 

• will: also work with IBM & clones f-rw <*b snipping) 

• complete package includes 20 meg drive, case & power supply, com ml Ear and interface 
that plugs into slot #3 of multipack interface. 

» 1 year warranty 

BASIC driver lets you access this hard drive without need lor OS-9 $49.95 



DISTO 




Includes controller and C-DOS 4.0 



ROM Chip. 

$98 



DISTO 



DC-3 /^ 



ADD-ON BOARDS 

DC-3B includes 80 column capacity, 
parallel printer, real time clock, and all 
software $138 

DC-3P Mini Epron programmer in- 
cludes all software to program 2764 
or 271 28 chips 



B 



555 



DC-3C Clock Calendar and parallel 
printer port 

C $40 



$2 shipping on all DISTO products 

NEW FROM DISTO 

Super Controller II works 
with CoCo 1 , 2 & 3. it buffers 
keyboard input so that no 
keystrokes are lost when 
disk is reading or writing. 
Especially useful with OS-9, 
but also works with BASIC. 

*129 DC6 ($2 Shipping) 

C-DOS 3 28 pin Eprom makes Dlsto 
controller compatible with CoCo 3 

•20 



SOFTWARE SPECIALS 



Payrol/BAS T 



<*2 shipping) 

• Nonprotected basic is modifiable 

• Tex tables built in lor automatic 
federal calculation 

• Custom code lor each state ( ( Z5 option} 

• 4 pay periods 

• 7 deductions 

• Prints checks 

• 100 employees 

• 30 ledger numbers for checks 
other than payroll 

• Check register Includes monthly 
or weekly federal deposit amount 

• Enter, update, delete employees, 
company and check Information 

• Print payroll and nonpayrotl 
checks 



Payrol/BAS™ 
30 Day Trial 

$29.95 

VIP LIBRARY 

Softlaw's integrated package in- 
cludes VIP Writer Terminal Data 
Base, Calc and Disk Zap which 
can fix a diskette that is giving 1/ 
O errors ffJ Ar 

^l^O reg.*i49 

($2 Shipping) 

VIPwriter $68 



MEMORY 

Memory for CoCo 3 PC memory 

board plugs into the spare slots 
Inside the computer and is pop- 
ulated with 256K ram chips. 
Completely solderless with com- 
plete easy to install instructions. 

CALL FOR PRICE 

PC MEMORY BOARD without 
RAM *49.50 

Software spooler and RAM disk 
(or lightning quick response or 
no disk swapping drive backup 
for 1 drive system and printer 
spooler to free computer during 
long listings. 

For CoCo 3 with *.«,» *_ 
512KRAM * 19.45 

{$2 shipping on Memory products) 



GUARANTEE 

Howard Medical's 30-day 
guarantee is meant to 
eliminate the uncertainty 
of dealing with a com- 
pany through the mall. 
Once you receive our 
hardware, try it out; test it 
for compatibility, if you're 
not happy with It for any 
reason, return it in 30 
days and we'll give you 
your money back (less 
shipping). 

Shipping charges are for 
48 states. 

APO, Canada and Puerto 
Rico orders are higher. 



Howard Medical Computers 1690 N. Elston Chicago, IL 60622 




ORDERS 



(800) 443-1444 



INQUIRIES AND ORDER STATUS 

(312) 278-1440 



Showroom Hours: 
8:00- 5:00 Mon. - Fri. 
10:00 -3:00 Sat. 



WE ACCEPT: VISA • MASTERCARD • AMERICAN EXPRESS 
COD. OR CHECKS • SCHOOL P.O.'S 



The Bi99 est 

The Best 

The indispensable 




THE RAINBOW is the biggest, best, brightest and 
most comprehensive publication a happy CoCo 
ever had! THE RAINBOW features more programs, 
more information and more in-depth treatment of 
the Tandy Color Computer than any other source. 

A monthly issue contains nearly 200 pages and 
up to two dozen programs, 14 regular columns and 
as many as 12 new product reviews. And advertise- 
ments: THE RAINBOW is known as the medium for 
advertisers — which means every month it has a 
wealth of information unavailable anywhere else 
about new products! Hundreds of programs are 
advertised in its pages each month. 

Every single issue of THE RAINBOW covers the 
wide spectrum of interests in the Tandy Color 
Computer — from beginners' tutorials and arcade 
games to telecommunications and business and 
finance programs. Helpful utilities and do-it- 
yourself hardware projects make it easy and fun to 
expand your CoCo's capabilities. And, monthly 
reviews by independent reader reviewers take the 
guesswork out of buying new software and hard- 
ware products. 

Join the tens of thousands who have found THE 
RAINBOW to be an absolute necessity for their 
CoCo. With all this going for it, is it surprising that 
more than 90 percent of THE RAINBOW subscrib- 
ers renew their subscriptions? We're willing to bet 
that, a year from now, you'll be doing the same. 
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Rainbow On Tape 

& Rainbow On Disk' 



— great ways to bring THE RAINBOW into your life. 
Each month, all you do is pop the tape into your 
cassette player or the disk into your drive. No more 
lost weekends. As soon as you read an article about 
a program in THE RAINBOW, it's ready to load and 
run. No work. No wait. 

Just think how your software library will grow. 
With your first year's subscription, you'll get almost 
250 new programs: games, utilities, business 
programs, home applications. And, with RAINBOW 
ON DISK, you'll also get ail the OS-9 programs. 

RAINBOW ON TAPE and RAINBOW ON DISK — 
they're the "meat" of THE RAINBOW at a price that's 
"small potatoes." And now you even have a choice 
about how it should be served up to you. 

To get your first heaping helping, just fill out and 
return the attached reply card. No postage neces- 
sary. 
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VIP Writer I 



RAINBOW 



AND 



III 



WORD PROCESSOR • SPELLING CHECKER * PRINT SPOOLER 



SCREEN DISPLAY OPTIONS 

VIP Writer III has a screen of 32, 40, 64, or 80 characters wide by 
24 tines using the CoCo 3's hardware display with actual lower 
case letters. You can choose fore and background colors from 
up to 64 different hues. Color can be turned ON or OFF for the 
best possible display using a color or monochrome monitor or 
TV set. VIP Writer III has a butft in on-line context sensitive help 
facility which displays command usage in easy to read colored 
windows. VlP Writer III also runs at double clock speed! 

TEXT FILE STORAGE 

There is a 49K text buffer and disk or cassette file linking 
allowing virtually unlimited text space. In addition VIP Writer III is 
compatible with the RGB Computer Systems HARD DISK. 



"...Nearly every feature and option possible to 
implement on the Color Computer. The design of 
the program is excellent; the programming is 
flawless." -The RAINBOW October 1983 



EDITING FEATURES 

VIP Writer III has a full featured screen editor which can be used 
to edit text with lines up to 240 characters long with or without 
automatic word wrap around. You can select type-over mode or 
insert mode. There is even an OOPS command to recall a 
cleared text buffer. Other editing features include: Type- 
ahead, typamatic key repeat and key beep for flawless text 
entry, end of line bell, tull four way cursor control with scrolling, 
top of textfile, bottom of textfile, page up, page down, top of 
screen, bottom of screen, beginning of line, end of line, left 
one word, right one word, DELETE character, to beginning or 
end of line, word to the left or right, or entire line, INSERT 
character or line, LOCATE and/or CHANGE or DELETE single 
or multiple occurrence using wildcards, BLOCK copy, move or 
delete with up to TEN simultaneous block manipulations, TAB 
key and programmable tab stops, three PROGRAMMABLE 
FUNCTIONS to perform tasks such as auto column creation and 
disk file linking for continuous printing. 

TEXT FORMATTING 

VI P Writer III automatically formats your text lor you or allows you 
to format your text in any way you wish. You can change the 
top, bottom, left or right margin and page length. You can set 
your text flush left, center or flush right, You can turn right hand 
justification on or off. You can have headers, footers, page 
numbers and TWO auxiliary lines which can appear on odd, 
even or all pages. You can also select the line on which they 
appear! You can even change the line spacing! All of these 
parameters can be altered ANYWHERE within your text file. 

TEXT FILE COMPATIBILITY 

VIP Wrrter III creates ASCII text files which are compatible with all 
other VIP Programs as well as other programs which use ASCII 
file format. You can use VIP Writer III to create BASIC, assembly, 
PASCAL or C files. VIP Writer III also albws you to save and load 
files using DISK or CASSETTE in the case of an emergency 
You can even read disk directories, display free space on a disk 
and rename or kill disk files. 

SB 1£nw»iiosie§ 

(503) 663-2865 8:30 AM to 5:00 PM PST 
P. O. Box 1233 Gresham, OR 97030 



PREVIEW PRINT WINDOW 

The VIP Writer III features a paper saving format window which 
allows you to preview your document BEFORE PRINTING IT! 
You are able to see centered text, margins, page breaks, 
orphan lines etc. This feature makes hyphenation a snap! 

PRINTING 

VIP Writer III supports most any printer serial or parallel using the 
parallel interface described in Nov-Dec. '87 RAINBOW 
magazine, or an external serial to parallel interface, and gives 
you the ability to select baud rates from 110 to 9600. You are 
able to imbed printer control codes anywhere in your text file 
EVEN WITHIN JUSTIFIED TEXT! VIP Writer 111 also has twenty 
PROGRAMMABLE PRINTER SEQUENCES which allow you to 
easily control all of your printers capabilities such as underline, 
bold, italics, superscript and subscript using simple keystrokes. 
Additional printer features include: single sheet pause, print 
pause, word length and line feed selection. 

PRINT SPOOLING 

VIP Writer Hi incorporates a built in print spooler with a 49,000 
character buffer which allows you to print one document WHILE 
you are editing another. You no longer have to wait until your 
printer is done printing before starting another job! 

DOCUMENTATION 

VIP Writer III is supplied with a 125 page instruction manual 
which includes a tutorial, glossary of terms and a complete 
index. The manual is well written and includes many examples 
to aid in understanding and application. VIP Writer III includes 
VIP Speller at NO ADDITIONAL COST. DISK $79.95 

Cassette version does not include VIP Speller. TAPE $59.95 



VIP Writer owners; Upgrade to the VIP Writer 111 Disk for $49.95l 
or Tape for $39.95. Send original product. Include $3 shipping | 



VIP WRITER ■ THE ORIGINAL 

VIP Writer is also available for CoCo 1 and 2 owners and has all 
the features found in the VIP Writer III including VIP Speller 
except for the following: The screen display is 32, 51 , 64 or 85 
columns by 21 or 24 rows. Colors other than green, black or 
white are not supported. Help is not presented in colored 
windows. Double clock speed is not supported. Parallel printer 
interface is not supported. Print spooler is not available. Hard 
disk is not supported. Even so, the VIP Writer is a CoCo 1 or 2 
owners best choice in word processors. VIP Writer includes 
VIP Speller at NO ADDITIONAL COST. DISK $69.95 

Cassette version does not include VIP Speller. TAPE $49.95 

VIP SPELLER SPELLING CHECKER 

VIP Speller works with ANY ASCII file created by most popular 
word processors. It automatically checks text files for words to 
be correcled, marked for special attention or even added to the 
dictionary. You can even view the misspelled word in context! 
VIP Speller comes with a specially edited 50,000 word 
dictionary, and words can be added to or deleted from the 
dictionary or you can create one of your own. DISK $34.95 



Please add $3.00 for shipping and handling. COD orders add 
an additional $2.25. Personal checks allow 3 weeks for delivery. 
All other orders are shipped the same day. 



133,0 LOAD"EXPNS/BAS",R 


1390 PRINT@480,W$;:POKE1535,128 


1335 ****** (A=5) QUIT 


1395 A$=INKEY$:IFA$<>"@"THEN1395 


1340 CLS:NEW 


ELSE75 


1345 ' 


14^0 1***** UTILITY TO INITIALIZ 


13 50 PCLEAR1:G0T055 


E "VEHICLE INDEX" FILE 


1355 IFA=1THENN$=TEMP$:N1$="" :A$ 


1405 'N$(1)="SAMPLE" 


= " " :N$ (M) »« " ; GOT075ELSE GOT075 


1410 OPEN"0", #1, "VEH/NDX" 


1 3 60 ****** 


1415 FOR Q=1T05:WRITE#1,N$(Q) :NE 


1365 CLS3:PRINT@264,"NOT VALID M 


XTQ 


ILEAGE" ; : FORX=0TO300 :NEXT X: GOTO 


1420 CL0SE#1 


500 


1425 OPEN"0",#l,"CRNT/NDX" 


1370 '***** (A=4) VEHICLE INDEX 


1430 WRITE#1,N$(0) 


SCREEN 


1435 CLOSE#l:END 


1375 CLS : PRINTU$ ; : PRINTS 19 , "vehi 


1440 A$=INKEY$:IFA$=""THEN1440EL 


cle";CHR$(12 8) ;" index"; 


SE RETURN 


13 80 PRINT: PRINT 


1445 '*****MAIN MODULE/ BY L. AN 


1385 F0RM=1T05:PRINTN$(M) , :NEXTM 


DERSON/ (C)1985 



f=^ — 

Vl70 4 

. I 165 11 



255 



49 355 103 

4 485 219 

247 END 12 



Listing 2: EXPNS 

5 ' *********EXPNS********** 
10 ■ *********vi .01********** 

************************ 
15 '*****C0PYRIGHT 1985***** 

**BY LARRY ANDERSON***** 
20 CLEAR5000:DIMA$(150) ,B$(150) , 
C$(150) 

25 Z$=CHR$(128) : VS=STRING$ (8 , 128 
)+"Sescapes"+Z$+"ta"+Z$+"menu"+S 
TRING$(7,12 8) 

30 U$="r e m e m b e r"+STRING$ ( 
17,128) 

3 5 W$="< — LAST"+STRING$ (5,128)+" 
Exit"+STRING$(5,128)+"NEXT — >" 
40 GOTO4 30 

45 CLS3:PRINT@0,U$; : PRINTS2 4 ,N$: 
PRINT@4 80,V$; tPRINT@233 , Z$+Z$+"r 
ecords"-fZ$+"for"+Z$+Z$; :PRINT@26 
5 , Z$+"which"+Z$+"vehicle"+Z$ ; : PO 
KE1535,128 

50 PRINTS 3 3 2," ";: PRINT S3 
3 2,""; :LINEINPUT Nl$ : PRINTS 3 40 , S 
TRING$(12, 175) ; : IFN1S=""THEN65EL 
SEIFN1$="@"THEN70 
55 TEMP$=N$:N$=N1$ 
60 ON A GOT04 80, 4 80,405 
65 IFN$<>""THENN1$="":PRINT@332, 
N$;:ONA GOTO505,505,295:GOTO45 
70 CLS3:PRINT@0,U$; : PRINTS 2 4 , N$ : 
PRINTS 200 , "Review" ; CHR$ ( 12 8 ) ; " it 
ems"; IPRINT@2 64, "Update" ;CHR$ (12 
8) ;" items"; ;PRINT<§328 , "Main" ;CHR 
$(128) ;"menu";STRING$(3,128) ; 
75 F1$="DATE- ■' : F2$=" AMOUNT- $": 



F3$="DETAILS- " 

80 GOSUB555 

85 B$="RUM":A=INSTR(B$,A$) 

90 ONA GOTO4 5,45,405:GOTO80 

95 ****** 

100 CLS3:PRINT@0,U$; : PRINTS24 ,N$ 

105 PRINT@232 , "Add"+Z$+"records" 

;STRING$(3,12 8) ', 

110 PRINT@296,"Remove"+Z$+"recor 

ds"; 

120 GOSUB555 

125 B$="AR@":W=INSTR(B$,A$) 

130 CLS:ONW GOTO140 , 210, 70: GOTO 1 

20 

135 '***** 

140 RC=RC+1 

145 CLS:PRINTU$+STRING$(3,128) ; : 

PRINTS19," ADD# ";RC 

150 PRTNT@3 2,STRING$(3,14 3) ; : PRI 

NT@48-LEN(N$)/2,N$ 

155 PRINT@480,STRING$(11,128) ;"@ 

"+Z$+"escapes", -STRING$ (11, 128) ; : 

POKE153 5,128:PRINT@64,""; 

160 PRINTF1$ ; : LINEINPUTA$ (RC) 

165 IFA$(RC)="@"THENA$(RC)="":GO 

TO290 

170 PRINTF2$;:LINEINPUTB$(RC) 

175 IFB$ (RC) ="@"THENB$ (RC) ="" : A$ 

(RC)="":GOTO290 

180 PRINTF3$; : LINEINPUTC$ (RC) 

185 IFC$ (RC) ="@"THENC$ (RC) ="" : A$ 

(RC) =" " : B$ (RC) =" " : GOTO290 

190 PRINT@480,STRING$(5,128) ;"ok 

"+Z$+"to"+Z$+" enter "+Z$+ "Yes No" 

;STRING$(8, 128) ; :POKE1524 , 47 : POK 

E1535,128 

195 GOSUB555 

200 B$="YN":W=INSTR(B$,A$) 

205 ONW GOT0135,145:GOTO195 

210 CLS (7) :PRINT@0,U$; :PRINT@480 

,V$; :POKE1535,128 
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215 PRINTS32 , "record"+Z$+"remova 


440 IFEOF(1)=-1THEN450 


1";STRINGS(4,128) ; 


445 NEXTQ 


220 PRINTS 50, "REC.#:",- :LINEINPUT 


450 CLOSEU 


Q$ 


455 OPEN"I",#l, "CRNT/NDX" 


225 IFQ$="@" THEN 70ELSE230 


4 60 INPUT #1,N$ 


230 Q=VAL(Q$) :IFQ>RC OR Q<1THEN2 


465 CLOSE#l 


10 


470 GOTO70 


235 PRINT@64,F1$;A$(Q) :PRINTF2$; 


475 '***** 


B$(Q) :PRINTF3$;C$(Q) 


4 80 FOR N=1T05:IFN$(N)=N$ THEN50 


240 PRINTS480,STRING$(6,128) ;"re 





move" ;STRING$ (4 , 128} ; "Yes"+Z$+ ,, o 


485 IFN$(N)="" THENCLS3:PRINT<§0, 


r"+Z$+"No";STRING$(6,128) ; :POKEl 


U$; : PRINTS 2 60, "NO VEHICLE BY THA 


535,128 


T NAME" ; ; SOUND200 , 5 : SOUND150 , 10 : 


245 GOSUB5 55 


FORT=1TO300:NEXT T:N$=TEMP$ :GOTO 


250 B$="YN@":W=INSTR(B$,A$) 


45 


255 ONW GOTO260,210,70:GOTO245 


490 NEXT N 


260 A$(Q)=A$(0) :B$(Q)=B$(0) :C$(Q 


495 CLS3:PRINT@2 60,"NO VEHICLE B 


)~C$<0) 


Y THAT NAME" ; : SOUND200, 5 : SOUND15 


2 65 FORN=Q TO RCD 


, 10 : FORT=1TO300 : NEXTT: TEMP$=N$ : 


270 A$(N)=A$(N+1) :B$ (N) =B$ (N+l) : 


GOT045 


C$(N)=C$(N+1) 


500 ONA GOTO505,505,405 


27 5 NEXTN 


505 IFN1$=""ANDA$ (1) <> ,n, THEN550E 


2 80 RCD=RCD-1:IF RCD<1THENRCD=0 


LSEFORQ=1TO150 : A$ (Q) =" " : B$ (Q) =" " 


285 GOT0295 


:C$(Q)="":NEXTQ 


2 90 RC=RC-1 


510 OPEN"I", #l,N$+"/DTL" 


295 CLS0:L1=LEN(N$)/2:C=207-L1:P 


515 FORQ=1TO150 


RINTS171," SAVING ";: PRINTS 203 , 


520 IFEOF(1)=-1THEN540 


» "; :PRINT@G,N$? :PRINT@2 


525 INPUT#1,A$(Q),B$(Q),C$(Q) 


35, "DATA FILE" ; 


530 IFA$(Q)=""THEN540 


300 PRINTS2 99, RCD; "RECORDS" ; 


53 5 NEXTQ 


305 OPEN"0",#l,N$+"/DTL" 


540 RC-Q-1 


310 F0RQ=1T0 150:IFA$ (Q)=""THEN3 


545 CLOSE #1 


25 


550 ONA GOT0335,95,295 


315 WRITE #1,A$(Q) ,B$(Q),C$(Q) 


555 A$=INKEY$ : IFA$=" "THEN555ELSE 


3 20 NEXTQ 


RETURN 


3 25 CLOSER 1 




330 GOTO70 




335 i***** 




340 CLS3:FORQ=lTO RC 


Listing 3: REM 


345 CLS:PRINT@0,U$: PRINTS 15, STRI 




NG$(5,12 8) ;Q"OF"RC:PRINTS80-LEN( 


5 i ********TITLE SCREEN******** 


N$)/2,N$ 


**************************** 


350 PRINT: PRINTF1$;A$(Q) 


10 "*******FOR "REMEMBER"******* 


355 PRINTF2$;B$(Q) 


**************************** 


3 60 PRINTF3$;C$(Q) 


15 ' 


365 PRINT@482,W$; 


20 CLS:T$="r e m e m b e r" 


370 GOSUB555 


25 G$>CHR$(12 8)+" "+CHR$ (159) +" 


375 IFASC(A$)=9THEN395 


"+CHR$(255)+" "+CHR$(191)+" "+CH 


380 IFA$="E"THEN70 


R$(223)+" "+CHR$(175)+" "+CHR$(2 


385 IFASC (A$) =8THENQ=Q-1 : IFQ<1TH 


39)+" "+CHR$(207) 


ENQ=RC 


30 FORX=0TO150:PRINT@456,T$:NEXT 


390 GOT0345 


35 FORL=456T039STEP-32;PRINT@L,T 


395 CLS3:NEXTQ 


$ : PRINTSL+3 2 , G$ : NEXT 


400 GOTO340 


40 FORX=0TO300:NEXT 


405 OPEN"0",#l, "CRNT/NDX" 


45 PRINTS352," b y 


410 WRITE#1,N$ 


1 a r r y an 


415 CLOSE#l 


d e r s o n" 


420 LOAD " MAIN ",R 


50 FORX=0TO300:NEXT 


425 I ***** 


55 PRINT@450,"C. 1985 BENTON, 


4 30 OPEN" I" , #1,"VEH/NDX" 


LA. 71006" 


43 5 F0RQ=1T05:INPUT#1,N$(Q) 


60 LOAD" MAIN", R ^ 
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Educat i on N o t e s 



16KDisk 



This month's program is a political 
"thermometer" for students of all 
ages. It concerns the upcoming 
presidential election, which affects all of 
us. 

Election Preview polls a test group, 
keeping score of, and updating, candi- 
dates' votes, and can be used in a variety 
of ways. We have used this program to 
track presidential candidates* true 
number of electoral votes, students' 
candidate preferences as time goes on, 
and classroom orschoolwide voting for 
various student elections. 

The names of the top seven candi- 
dates for both parties are listed on the 
screen. The student "votes" by typing in 
his or her preference, or that of some 
authoritative source, and the candidate 
receives one point. The student merely 
types in the candidate's name. We 
purposely decided to have the student 
type in the name of the candidate rather 
than a number in order for the student 
to obtain practice in recognizing and 
spelling these names. One of them, after 
all, is bound to be our next president. 

Bear in mind this program was writ- 
ten at the end of January, about the time 
of the Iowa primaries. By the time of 
publication, the list of probable candi- 
dates may very well be quite different. 
Governor Cuomo, for example, may 
announce his intention to become a 
candidate. At periodic intervals, you 
should update the program to include 
or delete candidates as events change. 
This is easily done by revising the names 
in the data statements in lines 260 
through 320. 

Each of the seven data lines contains 
the last name of a current Democratic 
candidate, his number of votes, the 
name of a current Republican and his 
current number of votes. The numbers 
all start out as zeros for placeholders. 
They are updated by the DATA . DAT file, 
which the user may optionally update 
each time the program is used. 

After the student has finished his or 
her current polling, the S key may be 



Steve Blyn teaches both exceptional 
and gifted children, holds two master's 
degrees and has won awards for the 
design of programs to aid the handi- 
capped. He owns Computer Island and 
lives in Staten Island, New York. 



A polling program to track 
voting trends 



Presidential 
Election 
Preview 



By Steve Blyn 
Rainbow Contributing Editor 



pressed to save the current results. The 
E key is used to end the session. To 
begin a new session, the student must 
press the L key to load the saved infor- 
mation. 

The information is optionally saved 
and loaded on disk for the convenience 
of the user, stored in a file called 
DATft.DAT on your disk. If additional 
independent surveys were taken on the 
same disk, the data of the second would 
wipe out the data of the first unless they 
were given different names. 

For example, a second student named 
Freddy may take his own surveys, 
change the name of his file in lines 340 
and 410 from DATA to FREDDY, and save 
this revised program as FREDDY. When 



Freddy uses the computer, he will load 
the program called FREDDY and the file 
usedwillautomaticallybeFREDDY.DAT. 
This procedure can be repeated for all 
of the student users if desired. 

Program lines 30 and 40 dimension 
and read in the data. You may alter 
these two lines if the list of candidates 
becomes significantly shorter or longer. 
We chose seven of each as a safe middle 
ground. 

Lines 60 through 140 set up and print 
the screen. Lines 150 and 160 ask for the 
user's current choice or update. Lines 
200 through 230 add a value of 1 to that 
candidate's score. 

Line 170 checks to see whether the E 
key was pressed to end the program. 
Line 180 checks for the L key and will 
load the data file: This routine is on lines 
4 10 through 450. Line 190 checks for the 
S key and saves the data file: This 
routine is on lines 340 through 380. If 
you want to preserve your current data, 
be sure to save the file before ending the 
program. 

If you choose never to use the files 
option, then there is no need to type in 
the two routines mentioned above. You 
would key in the program up to Line 
320. Lines 180 and 190 would also be 
unnecessary. 

We hope that you and your children/ 
students can use this program to help 
make our country's electoral process 
more meaningful. Remember that your 
personal teaching and input into the 
children's understanding is the most 
valuable tool of all. As always, Comput- 
er Island appreciates hearing about the 
children's experiences and reactions to 
our programs. □ 



The listing: ELECTION 


10 


REM"ELECTION PREVIEW" 


2jS 


REM"<OSTEVE BLYN, COMPUTER IS 


LAND, STATEN ISLEAND , NY , 19 8 8 " 


3^ 


DIM A$(7) ,B$(7) ,A(7) ,B(7) 


4j3 


FOR T=l TO 7: READ A$(T),A(T), 


B$(T) ,B(T) :NEXT T 


5,0 


N= v 0:CLS:Q$=STRING$(32,2 39) 


6;0 


PRINT@5,"OUR ELECTION PREVI 


EW 1 


'; :PRINT@32,Q$ 


70 


PRINT@64," DEMOCRATS R 


EPUBLICANS " : PRINT@9 6 , Q$ 
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80 SOUND 2,00 , 3 : N=j3 : FOR T=l TO 7: 


2 80 DATA SIMON,0,KEMP,0 


PRINT@128+N,A$(T) ; 


290 DATA DUKAKIS, 0, ROBERTSON, 


90 PRINT@138+N,A(T) ; 


300 DATA GORE,0,HAIG,0 


100 N=N+3 2:NEXT T 


310 DATA GEPHARDT, 0,DUPONT,0 


110 N=0:FOR T=l TO 7 :PRINT@143+N 


3 20 DATA BABBITT, , KIRKPATRICK, 


,CHR$(233)4-" "+B$(T) ', 


3 30 REM OPTION TO SAVE THE FILE 


120 PRINT@352,Q$ 


3 40 PRINTS448 , "saving data";; OPE 


130 PRINT@156+K,B(T) ; 


N"0",#1,"DATA" 


140 N=N+3 2:NEXT T 


3 50 FOR T= 1 TO 7 


150 PRINT@416," ":PRINT@416, "YOU 


360 WRITE *1,A$(T) ,A(T) ,B$(T) ,B( 


R CHOICE IS " ; 


T) 


160 INPUT C$ 


370 NEXT T 


170 IF C$="E" THEN 2 50 


380 CLOSE #1 


180 IF C$="L" THEN GOTO 410 


3 90 GOTO 50 


190 IF C$="S" THEN GOTO 340 


400 REM OPTION TO LOAD THE FILE 


200 FOR Y=l TO 7 


410 PRINT@448, "loading data",*: OP 


210 IF C$=AS(Y) THEN A{Y)=A(Y}+1 


EN"I",#1, "DATA" 


:GOTO 50 


4 20 FOR T= 1 TO 7 


220 IF C$=B$(Y) THEN B(Y)=B(Y)+1 


430 INPUT #1,A$(T) ,A(T) ,B$(T) ,B( 


•.GOTO 50 


T) 


230 NEXT Y 


440 NEXT T 


240 GOTO 150 


4 50 CLOSE #1 


250 PRINT@416," VOTING COMPLETED 


460 GOTO 50 






2 60 DATA HART, 0, BUSH, 




270 DATA JACKS ON, 0, DOLE, 






/R\ 



Hardware 

Special 

Communications 



3D0/12O0 baud Fully Hayes 

compatible 
Modem - 1 Year Warranty 

$1 09.00 

[Modem & Cable] 

3DD/12D0/240Q baud 

Fully Hayes 

Compatible Modem - CCITT 

1 Year Warranty 

$1 79.00 

[Modem & Cable] 
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Software 



•KEEP-TRAK' General Ledger Reg. $69.95— Only S39.95 

"Double-Entry" General Ledger Accounting System for home or business: 16k. 
32k, 64k. User-friendly, menu-driven. Program features: balance sheet, income & 
expense statement (current & 'YTD'). journal, ledger, 899 accounts [ 3350 entries an 
32k S. 64k [710 accounts & entries on 1 6k] [disk only] . Version 1 . 2 has screen printouts 
Rainbow Review 1.1- 9/B4 : 1 .3-4/85 

"OMEGA FILE" Reg. $89.95— ONLY S24.95 

Fling data base. File any information with Omega File. Records can have up to 16 fields 
with 255 characters per field [4080 characters/record). Sort, match & print any field. 
User friendly menu driven. Manual included [32k/64k disk only]. 

Rainbow Review 3/85. Hot CoCo 1 0/85 

BOB'S MAGIC GRAPHIC MACHINE 

Can generate BASIC code to use in your programs. Easy drawing and manipulation cf 
circles, elipses, hoxes, lines and ARCS. Single joystick operation with on line HELPS at all 
times. Allows text on the graphics screen & movement of objects on the screen. Can be 
used as a stand-alone graphics editor. Instruction Manual. GRAPHICS EDITOR. REG. 
S39.95— ONLY $24.95 for disk or tape. 64k ECB. 

Rainbow Review 7/85, Hot CoCo 9/85 "The graphics bargain of the year" 

'KEEP-TRAK' Accounts Receivable. 

Features: auto interest calculation, auto ageing of accounts, installment sales, total due 
sales, explanation space as long as you need, detailed statements. 'KEEP-TRAK' General 
Ledger tie in, account number checking, credit limit checking S. more. User friendly/menu 
driven. Includes manual. 539.95 or S49.95 General Ledger & Accounts Receivables. 
PskOnly] 'COCO WINDOWS' 

With hi-res character display and window generator Features an enhanced key board 
[klicks] and 1 programmable function keys. Allows the user to create multiple windows 
from basic. Includes menu driven printer setup and auto line numbering. Four function 
calculator, with memory. The above options can be called anytime while running or writing 
in BASIC. APPLE PULL YOUR DRAPES. YOU DON'T WANT TO SEE THIS. S 34,95 [disk 
or tape] includes manual . 



(SOU 753-762D 
CSOO) 342-9402 






[Add $3.GO far postage £*. handling] 

C.O.D., Money Order, Check in U.S. Funds (Please specify if J&fVl 

control lor] 
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the rainbow is a teaching environment and we realize that the 
majority of our readers will always be beginners. In our 
continuing effort to always keep the new user in mind, and in 
addition to the many beginner feature articles and programs 
published in every issue, "Novices Niche" contains shorter 
basic program listings that entertain as well as help the new 
user gain expertise in all aspects of the Color Computer: 
graphics, music, games, utilities, education, programming, etc. 




Backup and Restore 

By Carl England 



16K 
Disk 



Most disk crashes are actually directory crashes. Some- 
times the crash occurs when you try lo save data while using 
the high-speed poke. Sometimes it occurs when you're trying 
to read or write to a direct access file record that doesn't exist, 
and sometimes it is just caused by gremlins on your disk. My 
program, BRU, allows you to restore files you thought would 
be lost forever. 

BRU was designed to back up just the directory, allowing 
you to keep a file copy of your directory in case the gremlins 
get you. Eight unused sectors on Track 17 (where the 
directory is found) are used to store the backup. A directory 
normally uses 10 sectors, so I had to find a way to compress 
the backup into eight. 

Lines 100 through 150 contain a trap that checks for data 
that may already exist on the sectors BRU uses to back up 
the directory. Some programs, especially those that run under 
OS-9, may use these sectors, and you may overwrite valuable 
data if you use BRU on them, so be careful. Line 260 is a 
trap lo prevent you from attempting to restore a directory 
that has not been backed up. 

BR U is simple lo use — just load it and follow the prompts. 
Though it won't recover from crashes that involve data, it 
can provide useful and rapid recovery from directory crashes, 
which by far comprise most of all disk crashes. For a cpjick 
test to see that BRU is working properly, save a file on a blank 
formatted disk, run BRU and select Option 1. Kill the file, 
run BR U again and select Option 2. You should now be able 
to load the killed file. 



The listing: BRU 

10 ' BACK UP AND RESTORE DIRECTOR 

Y 

20 'COPYRIGHT (C) 1987 

30 'CARL ENGLAND 

40 CLS : CLEAR5000 

50 PRINT "<1> BACKUP DIRECTORY 

60 PRINT" <2> RESTORE DIRECTORY 

70 I$=INKEY$ : IFI$<"l"ORI$>"2"THE 

N70 

80 ONVAL(I$)GOTO90,260 

90 FORI=13T018 

100 DSKI$0,17,I,A$,BS 

110 IFB$="BRU"+STRING$(125,255)T 

HEN 160 

120 IFA$=STRING$(128,255)ANDB$=A 

STHEN150 

130 PRINTA$B$:PRINT"TRACK 17, SE 

CTOR"I: PRINT "CONTAINS DATA. DO 

YOU WISH TO OVERWRITE IT? 

140 I$ = INKEY$ : IFI$= ,i N"THENENDELS 

EIFI$O"Y"THEN140 

150 NEXT 

160 DSKI$0 , 17 , 2 , A$ , B$ : B$="BRU"+S 

TRING$ (125,255) : DSKO$0 , 17 , 13 , A$ , 

B$ 

170 FORI=3T012STEP2 

180 DSK1S0 , 17 , 1 , A$ , B$ : DSKI$0 , 17 , 

I+1,C$,D$ 

190 A$=A$+LEFT${B$,112) :C$=C$+LE 

FT$(D$,112) 
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200 B$="":D$="" 

210 FORJ=0TO7 

22)3 B$=B$+MID$(A$,J*32+1,16) :D$= 

DS+MIDS (C?, J* 3 2+1, 16) 

2 30 NEXT 

240 DSKO$0, 17, (I+25)/2,B$,D$ 

250 NEXT:END 

2 60 DSKIS0,17,13,A$,B$:IFB$O"BR 

U"+STRING$ (125,255) THENCLS : PRINT 

"ERROR: ", /'DISK DOES NOT CONTAIN 

BRU FILE": END 
270 DSKO$0,17,2,A$,B$ 
280 FORI=3T012STEP2 



290 DSKI$0,17, (I+25)/2,A$,B$ 

300 GOSUB3 50 

310 DSKO$0,17,I,C$,D$ 

320 A$=B$:GOSUB350 

330 DSKO$p,17,I+l,C$,D$ 

340 NEXT: END 

350 C$= M ":D$="" 

3 60 FORJ=0TO3 

370 C$=C$+MID$(A$,J*16+1,26J+STR 

ING$(16,255) 

380 D$=D$+MID$(A$,J*16+65,16)+ST 

RING$(16,255) 

3 90 NEXT: RETURN 




Undercover CoCo 

By David Compton 



16K 
ECB 



Almost everyone has experimented with "secret codes" at 
one time or another, and many work the cryptograms in the 
daily paper. These codes, which are technically simple 
substitution codes, are lime-consuming to construct, and it 
is easy to make a mistake when working from the original 
to the cipher. 

Now CoCo lakes the work out of constructing cryptograms 
for you. Just run Encrypt and, in a few seconds, CoCo 
generates a new code. Type in your message, and it will be 
encoded. If you have a printer, you can print it out and give 
your friends a challenge. (To be lair, you should make your 
message long so they'll have a better chance of cracking the 
code.) 

There's a small chance that the cipher alphabet won't 
appear a few seconds after the normal alphabet, as it should. 
If the computer has not substituted 'Z' for another letter by 
the time it reaches *Z\ it will go into an infinite loop trying 
to find another letter. Just press BREAK and run again. 

The listing: ENCRVPT 

10 REM ENCRYPT 

20 REM COPYRIGHT (C) 1987 

2 5 REM BY DAVID COMPTON 

30 CLS 

40 CLEAR1000 

50 AL$(l)="ABCDEFGHIJKLMNOPQRSTU 

VWXYZ " : AL$ ( 2 ) =AL$ ( 1 ) 

60 PRINTAL$(1) 

70 CR=RND (-TIMER) 

80 F0RX=1T02 6 

90 CR=RND(26) 

100 IFMID$(AL$(1) ,CR, 1)=" "THEN9 



110 CR$=CR$+MID$(AL$(1) ,CR,1) 
120 IFMID$ (CR$,CR, 1)=MIDS (AL$ (1) 
, CR , 1 ) THENCR$=LEFT$ ( CR$ , LEN ( CR$ ) 
-1) :GOTO90 




Calling all cryptologists! If you think you have figured out 
this encrypted message, send the translation to us here at THE 
rainbow by May 1, 1988. If you're right, you could win a 
copy of The Third Rainbow Book of Adventures and its 
companion tape or disk (be sure to specify which). In case 
of a tie, we will hold a drawing. Send your entry to The 
Cryptogram Contest, c/o Novices Niche, The Falsoft 
Building, 9509 U.S. Highway 42, P.O. Box 385, Prospect, KY 
40059. 



MID$(AL$(1) ,CR,1)=" " 

NEXT 

PRINTCRS 

PRINT : PRINT"MESSAGE : " 

LINEINPUTM$ 

M=LEN(M$) 

DIMM$(M) 

FORY=lTOM 

F=INSTR(AL$(2) ,MID$ (M$ , Y , 1) ) 

IFF=0THENMC$=MC$+MID$ (M$ , Y , 1 
} :GOTO240 
230 MC$=MC$+MIDS(CR$,F, 1) 

NEXTY 

PRINTMC$ 

PRINT 

INPUT"HARDCOPY (Y/N) ";Y$ 

IFLEFT$ (Y$ , 1) ="Y"THENPRINT#- 
2,MC$:END 

290 IFLEFT$(Y$,1)="N"THENEND 
300 GOTO2 70 
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130 
140 
150 
160 
170 
180 
190 
200 
210 
220 



240 
2 50 
2 60 
2 70 
280 
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CoCo Caliber 

By Brian DeMarco 



16K 

ECB 



Ready, aim, fire! Set your sights for action on the shooting 
range with Shooi 'em. Use your left and right arrow keys to 
take aim, and press the space bar to fire. 

The listing: SHGGTEM 

2 CLS 

3 CLEAR2000 

4 TS=CHR$(13 6)+CHR$(13 2) 

5 DIM A$(3) 

6 PO=495 
10 A=RND (-TIMER) 



20 A$(1)=STRING$(255, 
TRING$(255,32) :A$(3)= 

32 ) 
30 FORX=1TO100 
40 R=RND(254) : IF MID$ 
<>CHR$(175) THEN MID$ 
=CHR$(17 5) :MID$(A$(2) 
159) :MIDS(AS(3) ,R,1)= 
EXTX ELSE GOTO 40 
50 M1=RND(254) :M2=RND 
D(254) 

5 5 PRINT@PO-l,T$; 
56 El=300 

60 Y$=INKEY$:IF Y$= u " 
4 90:GOTO60 

61 IF Y$=CHR$(8) AND 
EN PRINT@PO-l,CHR$(32 
:PO=PO-l:PRINT@PO-l,T 

62 IF Y$=CHR$(9) AND 



32) :A$(2)=S 
STRING$(255 



(A$(l) ,R,1) 
(A$(l) ,R,1) 
,R,1)=CHR$( 
CHR$(175) :N 

(254) :M3=RN 



THEN GOSUB 

PO-1>480 TH 

)+CHR$(32) ; 
$; :GOTO60 

PO<510 THEN 



PRINT@PO-l,CHR$(32)+CHR$(32) ;:P 
0=PO+ 1: PRINT @PO-l,T$; : GOTO 6,0 
70 FORX=PO-3 2 TO PO-480 STEP -32 

75 IFX-E1 THEN E1=0 

76 IF X=E2 THEN E2=0 

80 IF PEEK(1024+X)=175 OR PEEK(1 

024+X)=159THEN 100 ELSE 90 

90 PRINT@X,CHR$(13 3) ;:NEXTX 

9 5 GOTO 120 

100 IF X>128 AND X<159 THEN MID$ 

(A$(3) ,M3+(X-128) ,1}=CHR$(32) EL 

SE IF X>64 AND X<95 THEN MID$ (A$ 

(2) ,M2+(X-64) ,1)=CHR$(32) ELSE I 

F X>0 AND X<31 THEN MID$(A$(1),M 

l+(X-0) , 1)=CHR$(32) 

110 GOTO90 

120 FOR X=PO-32 TO PO-480 STEP 

-32:PRINT@X,CHR$(32) ; :NEXTX:GOTO 

60 

490 GOSUB1000:M1=M1+1:M2=M2-1:M3 

=M3+1:IF Ml=255 THEN Ml=l ELSE I 

F M2=l THEN M2=255 ELSE IF M3=25 

5 THEN M3=l 

500 PRINT@0,MID$(A$(1) ,M1,32) : PR 

INT@64,MID$(A$(2) ,M2,32) :PRINT@1 

28,MID$(A$(3) ,M3,32) : RETURN 

1000 IF E1=0 THEN El=PO-480 

1010 IF E2=0 THEN E2=RND(31)-1 

1020 PRINT@E1,CHR$(32) ; : PRINT@E2 

,CHR$(32) ; :El=El+32:E2=E2+32 

1030 IF El>511 THEN E1=0 

1035 IF E2>511 THEN E2=0 

1040 PRINT@E1,CHR$ (13 4+64) ; : PRIN 

T@E2,CHR$ (134+64) ; : IF PEEK(PO+10 

24)=134+64 OR PEEK (PO-1+1024 ) =13 

4+6 4 THEN END ELSE RETURN 
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A CoCo Pop-Up Calendar 

By Fred Kolesar 



4K 



Picture this: You're laboring away at the CoCo and need 
to know the date of the first Saturday in May, Ransacking 
your desk yields no calendar. Then you remember — there's 
a calendar installed as a subroutine in the very program 
you're using. A few quick keystrokes and the information is 
found. 

Calendar is, of course, a program in its own right. But if 
you opt to add Calendar to another program as a subroutine, 
you'll need to keep your variables separate. Calendar uses 
these five variables: L — loop start value for the PRINT 
TflB[P) F-'N loop; P — PRINT TAB position; D — day of the 
month; M month of the year; and MS — month names. If 
the larger program uses any of these variables, you will need 
to rename Calendar's. 



To change the calendar to another year, just change the 
date in Line 5 from 19B8 to the year you want displayed. 
Edit Line I and set the variable L to the print position of the 
first day of that year (Sunday, L=2; Monday, L=6; Tuesday, 
L=10; Wednesday, L=14; Thursday, L=l8; Friday, L=22; 
Saturday, L=26). January 1, 1988, was on a Friday, so 
Variable L has a value of 22 this year. Since 1988 is a leap 
year, you'll need to change the value on Line 2 from IF D-29 
RND M=2 to IF D=2B PND M=2 for non-leap years. Press the 
space bar to advance to the month you want. 

To end Calendar, just press the CLEAR key. To escape the 
program as a subroutine, edit Line 4 and change the 
statement END to RETURN. 

The listing: CALENDAR 







'calendar' by: 
7 ladd road, 



fred kolesar 
westf ield,pa 
16950 4/87 

1 L=2 2:M=0:GOSUB5:M$="JANFEBMARA 
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PRMAYJUNJULAUGSEPOCTNOVDEC 

2 FORP=L T02 6STEP4:D=D+1:PRINTTA 
B(P)D; :IFD=2 9ANDM=2GOSUB4ELSEIFD 
=30THENIFM=4ORM=6ORM=9ORM=11GOSU 
B4ELSEELSEIFD=3 1GOSUB4 

3 NEXT: PRINT : L=2 : GOT02 



4 EXEC44539:IFPEEK(135)=12THENEN 
D 

5 IFM=12THEN1ELSECLS0 : D=0 : PRINTS 
76 / MID$(M$,M*3+l,3)" 1988"r:M=M+ 
1:PRINT@192, " SUN MON TUE WED T 
HU FRI SAT": RETURN 
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High-Tech Quilting Bee 

By Bernice M. Shoobs 



CoCo3 



I call my program Quilt, but you can call it a game, 
tapestry, window shade, wall hanging or whatever you want, 
The program creates designs on your PMQDE 4 screen with 
the use of the composite monitor (to see the simulated colors). 
The designs are created by concentric and overlapping 
circles forming vertically down the screen. When prompted, 
the user inputs the x step increment, the y step increment and 
the radius of the circle. Keeping the x and y increment values 
between step 5 and step 20 and keeping the radius value 
between 6 and 25 make the most striking designs. 

Quill begins by giving the user some sample x, y and radius 
figures, which 1 have found to produce interesting patterns. 
Once you get the idea and begin to see the patterns take form, 
use your imagination. Some advice: Do not make the 
increments extremely small while the radius is large, and vice 
versa. Also, let the entire pattern develop before you decide 
to break the program. You will be surprised at the results. 

The listing: QUILT 




### 



10 CLS 

20 ON BRK GOTO 220 

30 Fl$=" ### 

###" 
4j0 PRINT @j8, "BEGIN MAKING PATTER 
NS WITH THESE" 

50 PRINT @40, "NUMBERS THEN — " 
60 PRINT@67,"C R E A T E YOUR 
OWN ! " 

70 PRINT@9 6,STRING$(32,"-") 
80 PRINT§128,"X INCREMENT Y INC 
REMENT RADIUS" 

90 PRINTS 160, STRING$ (32, "-•») : GOS 
UB 270: RESTORE 
100 REM ********************** 

REM 

OF X STEP INCREMEN 

, OF Y STEP INCREME 

, RADIUS OF CIRCLE" 



! PCLS : SCREEN 1 , 1 
170 FOR X=0 TO 255 STEP A 



110 REM 




120 INPUT 1 


'NO. 


T";A 




130 INPUT 


"NO 


NT";B 




140 INPUT 


"NO 


;c 




150 WIDTH 


32 


160 PMODE 


4,1 



180 FOR Y=0 TO 191 STEP B 

190 CIRCLE (X,Y) ,C 

200 NEXT Y,X 

210 FOR T=l TO 2 400: NEXT T 

2 20 CLS 

230 INPUT "ANOTHER ONE? <Y/N> » J 

A$ 

240 IF A$="Y" THEN 10 ELSE END 

2 50 REM ******************* 

2 60 REM 

270 READ X,Y,C 

2 80 IF X=9 9 THEN RETURN 
290 PRINT USING F1$;X,Y,C 
300 GOTO 270 

310 DATA 11,11,17 

3 20 DATA 10,7,10 

3 30 DATA 12,10,21 
340 DATA 13,6,11 
3 50 DATA 16,8,14 
3 60 DATA 5, 10,15 
3 70 DATA 99,99,99 

Submissions to "Novices Niche" are welcome from everyone. 
Wc like to run a variety of short programs that can be typed in 
at one sitting and are useful, educational and fun. Keep in mind, 
although the short programs are limited in scope, many novice 
programmers find it enjoyable and quite educational to improve 
the software written by others. 

Program submissions must be on tape or disk. We're sorry, 
but we cannot key in program listings. All programs should be 
supported by some editorial commentary, explaining how the 
program works. If your submission is accepted for publication, 
the payment rate will be established and agreed upon prior to 
publication. 
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Give us your best: Join the ranks of these courageous CoCotsts in showing the Color Computer world your 
high score at your favorite micro-diversion. We want to put your best effort on record in THE RAINBOW'S 
"Scoreboard" column. All entries must be received 60 days prior to publication. Entries should be printed — 
legibly — and must include your fait name, address, game title, company name and, of course, your high score. 
Each individual is limited to three score entries per month. Send your entries to Scoreboard, c/o THE RAINBOW. 

For greater convenience, your high scores may also be sent to us through the MAIL section of our Delphi 
CoCo SIG. From the CoCo SIG> prompt, pick MAIL, then type SEND and address to: EDITORS. 



•k Current Record Holder 



Shutout 



* 

* 

•••••••••••••••••^ 



ADVANCED STAR'TRENCH (THE RAINBOW, 7/86) 
4,750 *Stephane Marls!. Laval, Ouebsc 
4.475 DavidSchalter.Clark9lon.WA 
4.300 Jeffrey Warren, Waynesville, NC 
3.960 Maurice MacGarvey. Dawson Creek, 

British Columbia 
3.S60 Robbi Srnilh, Helena, HI 
ALPINE SLOPES (THE RAINBOW, 12/85) 

13,140 *Ron Silvestro. Lindenwold, NJ 
3,330 Wal t e r Sch i 1 1 in g, L i nden wol d , N J 
7.340 Gary Demerest, Lindenwold. NJ 
6,110 Rick McElroy, Lindenwold. NJ 
ASTRO BLAST {Mark Data) 

49,825 *Tony Bacon, Mt. Vernon. IN 
BEE ZAPPER (THE RAINBOW, 8/87) 

9,650 #Benoi1 Landry. Drummondville, 

Quebec 
9,450 Phillip Holsten, Modesto, CA 
BIOSPHERE fRad/o Shack) 

47,330 *Uplon Thomas. Arnold. MD 
BUZZAR D BAIT ( Tom Mix) 
22.931,850 * S k i p T aday , East Lyme. CT 
763,530 Geran Stalker, Rivordalo, GA 
187,750 Keilh Janas, Kilwanga. British 
Columbia 
CANYON CLIMBER (flarfra Shack) 
1,627,503 *Mallhew Fumich, Monford, TN 
202,000 David Brown, Mew Walertord. Nova 

Scotia 
1 78,200 Darren K i n g , York t on . Saskatchewan 
169,000 Gregory Spear, Emporia, KS 
165.500 Sara Mitlelstaedl, Kiel. Wl 
1 59.200 Upton Thomas. Arnold. MD 
150.200 Brian Lewis, Baliimore, MD 
141.400 Michael Pelry, Kansas, AL 
135.600 Eric Rose, Grand Coulee. WA 
130.400 Joanna Wanagel. Freeville, NY 
CLOWNS & BALLOONS (Radio Shack) 
688.930 *Faye Keeter. Augusta. GA 
70.180 Charles Andrews, Delta Jet, AK 
36,650 Melody Webb, Lakepart, CA 
15.950 Malthew Smith. Courtenay. British 
Columbia 
COLOR CAR (NOVASOFT) 

218.773 *Alan Marlin. Cornwall. Onlario 
COLOR POKER (THE RAINBOW. 4/33) 
21.504,600 *Earl Foster, Lynchburg. VA 
CRYSTLE CASTLES ( ThunderVision) 

554.979 *Patrick Martel, Laval, Quebec 
60,107 A Iphonse Brown , Houston, TX 
DALLAS QUEST (Radio Shack) 

81 *Brad Wilson, Lithia Springs, GA 

35 David and Shirley Johnson, Leicester, 

NC 
86 Roy Grant, Toledo, OH 
83 Melanie Moor, Florence. AL 

86 Paul Summers. Orange Park, FL 

87 Douglas Bell. Duncan, OK 
39 Chris Pierre, White Rock, 

British Columbia 
89 Milan Parekh. Fullerlon, CA 
69 Andrew Urquharl. Melalrie. LA 
39 Sieve Zemaltls., Howell, Ml 

DECATHALON (Spectral Associates) 

10.400 *Tom DiViltorio, Gfassboro, NJ 
7,440 Wayne Hufford, Kincardine. Ontario 
7,216 Marlin Parada, Arcadia, CA 
DEFENSE (Spectral Associates) 

16,305 *Palrick Marlel, Laval, QuEbec 



DEF MOV (THE RAINBOW, 1/87) 

35,331 *David Schaller. Clarhston, WA 

30.253 Benoil Landry, Drummondville. 

Quebec 

25.739 John Weaver. Amsterdam. NY 
DEMON ATTACK flmagic) 

72,410 *Glenn Hodgson, Aberdeenshire, 

Scotland 
67,730 Jim Davis, Sandwich. IL 
40.435 Upton Thomas, Arnold, MD 
28,730 Daniel Streidl. Cairo. Egypt 
16,995 Todd VanNatta, Isle ot Palms, SC 
DESERT PATROL 'Arcade Animation) 

377,050 *Jason Lakes, Franklin, OH 
DESERT RIDER (Radio Snack,' 

90,703 * Thomas Paylon, Anderson. SC 
50.797 Patrick Devill. Lombard, IL 
26, 1 25 Ryan Grady, Newbury Park, CA 
24,355 Roby Janssen, Clear Lake, IA 
DEVIL ASSAULT from Mix) 
1,935,100 *Stephane Marlel, Laval, Quebec 
323,550 Dale Krueger, Maple Ridge, 
British Columbia 
75,000 Blake Cadmus, Reading, PA 
40,800 Benoil Landry, Drummondville, 
Quebec 

DISCRIMINATION (THE RAINBOW, 1/87) 

15 * Patrick Martel, Laval. Quebec 
DONPAN f Radio Shack) 

53.100 *Jim Davis. Sandwich. IL 
52.600 Eric Olson, Whealon, I L 
DOUBLE BACK (Radio Snack) 

172.320 *P.:chard Winkelbauer, Bronx. NY 
136,510 Don Mollis. Deiavan.WI 
5 1 ,470 Betty Mullls, Delavan, Wl 
50,700 Tristan Terkuc, Richmond, Ontario 
34,990 Darren Lowe, White Rock, British 
Columbia 
DOWNLAND (Radio Shack) 

99.980 *Danny WimeH. Rome, NY 
98.985 Karl Gulliford, Summerville, SC 

97.740 Stephane Deshaias. Beloeil, Quebec 
89,490 Neil Edge, Williston, FL 

77.254 Ton-. Audas. Fremonl, CA 
73,343 Jean-Francois Morin, Loretteville, 

Quebec 
70,142 Chris Goodman. Balti more. MD 

68.142 Cooper Valentin. Vavenby, 

British Columbia 
67,721 Keith Yampams, Jattrey, NH 
62,442 Eddie Lawrence, Pasadena, 

Newfoundland 
55,300 Palrico Gonzalez, Buenos Aires. 

Argentina 
49,500 Danny Perkins, Clifton Forge, VA 
49.441 Kevin Paler, Port Alberni. British 

Columbia 
49,254 David Brown, New Waterlord, Nova 

Scotia 
43,502 Mike Ells, Charlotte, Ml 
41,896 Antonio Hidalgo. San Jose. 

Costa Rica 
40,360 Jesse Binns, Phoenix, AZ 

34,424 Andrea Mayfieid, Melbourne, FL 

25.143 Michelle Murray, Salem, IN 
25,147 Timothy O'Neal, Commerce, TX 
22,739 Kyle Sheppard. Fairview, NC 

DRAGON BLADE (Pricey-Pear/ 

69 +Anna Kurtz. Bath, IN 



DRAGON FIRE (Radio Shack) 

160,835 *Eric Olson, Wheaton. IL 
148.325 Stephane Martel. Laval. Quebec 
9.861 Michael Adams, Columbia, SC 

5.561 Chris Lorenz. Kiester, MN 

DR AC (Tom Mix) 

104,850 *Don Mullis, Delavan, Wl 
ESCAPE 2012 fCompoferivflreJ 

202 *Roy Grant, Toledo, OH 
FIRE COPTER (Adventure International) 

77,030 *Mike LeBrun, Cornwall, Ontario 
56,840 Michael Adams. Columbia, SC 
FIRESTORM (THE RAINBOW. 1/86) 

22.505 *Chad Presley, Luseland. 

Saskatchewan 
11,250 Stephane Martel, Laval. Quebec 
5,680 Kathy Rumpel. Arcadia, Wl 
3,760 R I e k Beeve rs. B loomf i eld. M N 
3,505 Blake Cadmus. Reading, PA 
FRACTION FEVER (Spinnaker) 

10,480 *5hawn Riggins, Orangevale, CA 
GALACTIC ATTACK (Radio Shack) 

26.370 *Je(( Remick. Warren. Ml 
10,600 Brian Crabtree, College Park. WA 
9,930 Daniel Streidt. Cairo, Egypt 
GALACTIC FIGHTER (/Four Star Software) 
153,725 *Michael Heilz, Chicago. IL 
GALAGOH (Spectral Associates} 

357,890 + Jason Ctough. Houston, TX 
328,820 Bernard Burke, Lee's Summit, MQ 
249,960 Matthew Fumich. Muntord, TN 
169,410 Danny Dunne, Pittsfield, NH 
149,520 Vernon Johnson III. Parkvilie, MD 
GALAX ATTACK /Spectral Associates; 
236.350 *Corey Leopold, Nada. TX 
28,300 Augusto Voysest. Lima, Peru 
GANTELET fDiecom Products/ 
23.643,720 #Geran Stalker. Rivordalo. GA 
20,921,490 Randall Edwards, Dunlap. KS 
10,222.940 Clinton Moreil. Sacramento. CA 
10,020,500 Ken H ub ba rd. Mad ison . W I 
7.493,340 Stirling Dell, Dundalk, Ontario 
2.626,950 Jonalhon Ross. Pocomoke City, MD 
2.512,620 Jason Steele, Pensacola, FL 
2.312,640 Rory Kostman, Hershey, NE 
2,115,790 Jerry Honigman, Waggoner, IL 
2.011,200 J erry Co I be rt . B ak ersfiel d , C A 
1.245,550 Donald Cathcart, Halifax. Nova Scolis 
1.224,190 Jonathan Wanagel, Freeville, NY 
GHANA BWANA (Radio Shack) 
2.350,750 *Michael Heilz. Chicago, IL 
702,520 Joseph Detaney. Augusla. GA 
GIN CHAMPION (Radio Shack) 

1.074 *William Ehardt. Darien, IL 
GROBOT (Children's Computer Workshop) 

8,090 frCurt Lebel, Louisville, KY 
HALLOWEEN (THE RAINBOW. 10/86) 

625 #Clara Smith, Courtenay. British 
Columbia 
HITCHHIKER'S GUIDE TO THE GALAXY f(rtrocom) 
400/422 *Jeff Holiham. Waierloo, Ontario 
400/51 Brad Wilson, Lithia Springs. GA 

INTERBANK INCIDENT /Radio Sh ack) 

4.361 *Shara and Chris Euton. Lilburn. GA 
IRON FOREST (Diecom Products) 

1.013.100 *Wltliam Welter, Kailua, HI 
JOKER POKER (THE RAINBOW, 3/67) 
2.793,285 *Blain Jamieson, Kingston. Ontario 
20S.239 Paul Dykes, Baton Rouge. LA 
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13.377 Jason Ebbeilng. Berkshire, MA 

11.000 Fratikie DiGiovanni. Olney, MD 

JUNIOR'S REVENGE tComputerware) 

2,503,000 *Stephane Martel, Laval, Quebec 

257,600 Kaith Cohen. Rocky Mounl. NC 

JUNKFOOD (THE RAINBOW, 11/81) 

25,670 *John Guplill. Columbia, MO 
18,650 Daniel Streidt, Cairo, Egypt 
KARATE {Diecom Products) 

31,000 *Wayne Hutford, Kincardine, Onlano 
1 1,600 Jonalhon Ross, Pocomoke City. MO 
6.300 David Darling, Longiae. Ontario 

THE KING (Tom Mix) 
3.824.280 #Andre Grenier, Quebec, Canada 
49.400 Benoit Landry. Drummondviile, 

Quebec 
22,400 Spencer Melcalt, Longview, TX 
KING TUT f Tom Mi* J 

44.500 *Curt Label, Louisville, KY 
KORONIS RIFT (Epyx) 

186.710 H/Tony Harbin, Cullman. AL 

Russell Johnson, Sarnia. Ontario 
John Farrar, Lebanon, TN 
Donald Cathead. Halifax. Nova Scotia 
Paul Blessing. Spring, TX 
KUNG-FU DUDE (Sundog Systems) 

32.000 *Tony Geilgey, University Park. PA 
LUNAR RESCUE (THE RAINBOW 8/B7) 
260.427 +Tom Beeker. Gracey, KY 
246.668 Phillip Holsten, Modesto. CA 
175.771 Jim Davis. Sandwich, IL 
113.579 Jeff Remick, War/en, Ml 
MAGIC OF ZANTH (Compurerwarei 

47 *Robert Williams, Yellowknife. 
Northwest Territory 
MEGA- BUG (fladio Sh.Kk, 

9.01 S *Healher Rrchwalskl. Medford, Wl 
5.172 Jason Ebbeilng, Berkshire, MA 
MISSION: F-1S ASSAULT (Diecom Products) 
468.750 #Karen Jessen. Cleveland. OH 
Stirling Oell. Dundalk, Ontario 
Jeremy Pruski, Sandwich. IL 
Donald Cathead, Halilax, Nova Scotia 
Mike Gram, Fresno, CA 
MUNCHKIN BLASTER (THE RAINBOW, 8/87) 
11,950 * Jim Davis. Sandwich. IL 

Gabe Emerson. Baraboo. Wl 
Tom Beeker, Gracey, KY 
Jo fin Weaver. Amsterdam. NY 
Benoit Landry, Drummondviile, 
Quebec 
ONE-ON-ONE f Radio SdacH) 

1.302-0 *«Thomas Paylon. Anderson. SC 
•Jonathan Dorris, Indianapolis, IN 
• Gregg Thompson. Chesterfield, VA 
•Chad Johnson. Benton, AR 
•Mark Lang, Down (evil le. CA 
PANIC BUTTON I Radio Stiack) 

2,192 *Eric Olson. Wheaton, IL 
190 Roby Janssen. Clear Lake, IA 
PAPER ROUTE f Diecom Products) 

1,550,110 #Mike LeBrun, Cornwall, Ontario 
PARAMISSION (THE RAINBOW, 5/87) 

3.500 *Jim Davis, Sandwich. IL 
PEGASUS AND THE PHANTOM RIDERS (Radio Snack) 
329,000 *Josepti Delaney, Augusta, GA 
303.100 Mike Grani. Fresno. CA 
244.100 Martinez Domingo. Miami. FL 
67,100 Ryan Grady, Newbury Park. CA 
PINBALL (Radio Sitae*; 

399,350 *Troy Sloll, Washington. IN 
389.463 Thomas Payton. Anderson, SC 
213,300 Patrick Martel, Laval. Quebec 
142.400 Thomas Paylon. Anderson, SC 



355.570 
318.160 
144,510 
137,920 



10,420 
9,760 

9,080 
9.000 



1.276-0 

1.210-0 
1,204-0 
1,160-0 



pitstop ii (Bpyx) 

54 itRusty Breitbach, ftickardsville, IA 
•Jeff CDburn. Easlon. PA 
•Walter Hearne, Pensacola, FL 

• Thomas Payton, Anderson, SC 

• Jeff Szczerba. Slurtevant. Wl 
•Sean Noonan, Green Bay, Wl 

• Brad Wilson. Lilhia Springs, GA 
Christian Grenier, Valleyfield. Ouebec 
Randy Venable. Coal City, WV 
Laundre demon, Sacramento, CA 

PLANETFALL (Inlocom) 

400/210 *Brad Wilson, Lithla Springs, GA 



54 
54 
54 
54 
54 
54 
51 
49 
9 



POLARIS (fladio snack) 

9t9,0B5 *Clinton Terry, Toronto, Ontario 
POLTERGEIST (Radio Shack) 

4,855 -k Darren Lowe, While Rock, British 
Columbia 
POPCORN (Radio Shack) 

94,470 *Patrick Martel, Laval. Quebec 
44,010 Kevin Paler. Port Aibernl, British 
Columhia 
Mallhew Leitrnan, Beaconslield, 

Ouebec 
Michael Bacon. ML Vernon, IN 
PYRAMID (Radio Shack) 

220 4Jason Ebbeilng, Berkshire. MA 
PYRAMID 2000 (Radio Shack) 

220 *Darren King. Yorkton, Saskatchewan 
100 Peter Antonacopoulos. Toa Baja, 
Puerto Rico 
PYRAMIX fCotorVenrureJ 

17,170 * Janet Kim, Pinckneyville, IL 
QUIX(TomMi*J 
8.407.772 *John Haldane, Tempe. AZ 

Curtis Goodson, Sao Paulo, Brazil 
Elisa Goodson, Sao Paulo, Brazil 
Martin Parade, Arcadia, CA 
John Holaling, Duanesburg, NY 
RESCUE ON FRACTALUS (Epyx) 

288.0B4 *DonaldCathcart, Halifax. Nova Scotia 
Russell Johnson. Sarnia, Ontario 
Leon Beggs, Be Fling ham, WA 
Roger Smith, High Prairie, Alberta 
Mike LeBrun, Cornwall, Ontario 
RETURN OF JUNIOR'S REVENGE (CoiOrware) 
1.792.800 *Chad Presley. Luseland, 
Saskatchewan 
RETURN OF THE JET-I (TilurtdarWsiorlJ 

309,250 *Melody Webb. Lakeport, CA 
ROGUE (Epyx) 

43.222 *Hans Lutenegger, Madison. IA 
Melanie Lapoint. Filchburg. MA 
Paul Blessing, Spring, TX 
Yvan Langlols, Laval. Ouebec 
Allan Houk, San Diego. CA 
SAILOR MAN (Tom Mix) 
1.019.200 * Gabriel Asset, Cameron, MO 
34 1 ,800 Jason Clough, Houston, TX 
332,800 Jeremy Carter. Spring Lake Park, MN 
287.200 Patrick Devill, Lombard. IL 
SANDS OF EGYPT (Radio Shack) 

67 *Trislan Terkuc, Richmond, Ontario 
Edward Rocha, Cobleskill, NY 
Roy Grant. Toledo, OH 
Neil Haupl. Elyria, OH 
John Lome, Austin. TX 
SANDWORM (THE RAINBOW. 8/8S) 

995 # Matthew Smith. Courtenay. British 
Columbia 
SHOOTING GALLERY (Radio SiiaclrJ 

23,100 *Richard Winkeloauer, Bronx, NY 
SHOOT'N RANGE (THE RAINBOW, 8/87) 
13,794 *Phllllp Holsten. Modesto. CA 
5.998 Richard Winkeloauer. Bronx. NY 
5,433 Benoil Landry, Drummondviile, 
Quebec 
SHORT-TERM MEMORY TEST (THE RAINBOW. 12/85) 
20 *Brlan and Harold Malherne. 
Gretna, LA 
SLAY THE NEHIUS (Radio Shack) 

53,788 *Jim Davis. Sandwich, IL 
SNAKER (THE RAINBOW, 1/84) 

1:22 *Dan Sobczak, Mesa, AZ 
SPACE ASSAULT (Radio Shacx) 

8.200 * Jo tin Weaver. Amsterdam, NY 
SPEED RACER (Mich Tron) 

81.020 # Wa y ne H u f f ord , Ki ncard in e. Onta ri o 
SPEEDSTER (THE RAINBOW 8/87) 

32,1 10 *Lisa Williamson, Walauga. TX 
Benoil Landry, Drummondviile, 

Quebec 
Sara Mitlalstaedt, Kiel. Wl 
Andrea Reelitz. Greenville, IL 
Kevin Hilton. Gurdon, AR 



1.404.000 

1.003,104 

326,192 

205,335 



270,000 
190.915 
167.947 
148.932 



27,542 

21.682 

17.851 

8.812 



62 
86 
87 
117 



22,750 



10.500 
4.710 
3.380 



SPIDERCIDEf/iad/oSnacx) 

7,290 *Upton Thomas. Arnold, MD 

STELLAR LIFE-LINE (fladio ShacJr) 

629.000 *Stoven Smith, Matthews. NC 
1 14,620 Martinez Domingo, Miami, FL 



STRATEGY FOOTBALL (THE RAINBOW. 8/83) 

153-0 *Michael Hertz, Chicago, IL 
STORM (Compularware) 

113.315 *Tony Bacon. Ml. Vernon. IN 
89.645 Michael Bacon, Mt. Vernon, IN 

SUCCESS MANSION (THE RAINBOW, 1/87) 

13/13 #Dave Allessi. Iselin, NJ 
SUPER ROOTER (THE RAINBOW. 5/86) 

15.180 * Ri cha rd Don nell . Pen n s Grove, N J 
1 1 ,090 Frederick Lajoie, Nova Scotia. 

Canada 
3,910 Daniel Bradford, Birmingham, AL 

TEMPLE OF ROM (Radio Sitae*) 

303,600 *Tim Hennon, Highland, IN 
136,400 Ga ry B ud ja k , We stervi I le , O H 
125.200 Michelle Murray, Salem. IN 

TREASURE QUEST (THE RAINBOW, 1 1/86) 

29.340 *Matthew Smith, Courtenay. British 
Columbia 
TREKBOER (Mar* Data) 

132 #Matthew Fumiqh, Munford. TN 
123 Roy Grant. Toledo, OH 
TUrs TUMB (Mark Dale; 

118,720 #Reina Roy, Carleton. Quebec 
Mack Haynes, Nice, C A 
Chad Presley, Luseland, 

Saskatchewan 
Don Siler, Muncie. IN 
Blake Cadmus, Reading, PA 
VARLOC (Radio Shack) 

2.032 *Tony Harbin, Cullman. AL 

♦ Edward Rocha. Cobleskill, NY 
Philip Putfinburger. Winchester. VA 
Denise Rowan, Minneapolis, MN 
Ryan Grady. Newbury Park, CA 
Randall Edwards, Dunlap, KS 
Bernard Florence. Croydon. Australia 
VICIOUS VIC (THE RAINBOW, 7/86) 
18,813 *Talib Khan, Bronx. NY 

Martha James, Swarlhmore, PA 
Karl Guliiford. Summervllle. SC 
Pal O'Neill, Nepean, Ontario 
Martha James, Swarlhmore, PA 
Richard Donnell, Penns Grove, NJ 
THE VORTEX FACTOR (MarX Data) 

100/278 *Tommy Grouser. Dunbar, WV 
Rick & Brenda Slump, 

Laureldale, PA 
Paul Maxwell, Vancouver, 
British Columbia 
WARP FACTOR X (Prickly -Pear) 
10.577.051 *Doug Lute. Clymer, PA 
WISHBRINGER (iniocom) 

400/20 1 * Brad W i iso n. L it h i a S pri ng s. G A 
WRESTLE MANIAC (Diecom) 

956,971 *Marc Reiter, Cincinnati, OH 

Louis Bouchard, Gatinaau, Quebec 
Tony Bacon. Mt. Vernon, IN 
David Brown, New Walerford, Nova 

Scotia 
Billy htelmick. Independence. KY 
ZAKSUNO ( Elite Software) 

357,550 * Ma rl in Pa rada. A rca d i a. C A 
268,350 Tony Bacon, ML Vernon, IN 
44,900 Michael Adams. Columbia. SC 
39,950 Walter Hearne, Pensacola, FL 
ZAXXON (Datasoit) 
2,061,000 *Byron Alford. Raylown, MO 
Blake Cadmus, Reading, PA 
Dan Brown, Pittsford, NY 
Andrew Urquharl, Metairie. LA 
Bob Dewitt. Blue Island, I L 
Matthew Yarrows, East Hampton, MA 
Daniel Bradford, Birmingham, AL 
Upton Thomas, Arnold, MD 
ZONERUNNER (Radio Snack) 

65,535 ^Donald Calhcarl. Halifax, Nova Scotia 
ZONX (THE RAINBOW, 10/85) 

6.500 #Daniel Streidt, Cairo, Egypt 
20 HK I firi/oeomj 

400/720 *Brad Wilson, Lilhia Springs, GA 
ZUES (Aardvaik) 

3,380 *Martin KertZ, Forrest City, AR 



74.780 
72,000 



60,020 

45.000 



2.032 
2,008 
1,995 
1.991 
1.988 
1,975 



11,902 
10.489 
6,294 
4,643 
3,285 



100/483 



210 



546,315 
45.483 
42,105 

39,086 



1,950.000 

1,300.500 

1.1 00. 800 

253,400 

170.600 

163,700 

137,200 



— Jody Doyle 
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COREBOARD POMTE 



In conjunction with the rainbow's Scoreboard, we offer this column 
of pointers for our game-playing readers' benefit. If you have some 
interesting hints, tips or responses to questions, or want help yourself, 
we encourage you to write to the Scoreboard, c/o the rainbow. 



Feedback 

In response lo questions from: 

• Curtis Schaaf, Eric Reitz and Matt 
Hoyer: In Sands of Egypt, the dates are 
in the tree. Feed the dates to the camel 
and ride to the scepter. The snake oil is 
to oil the scepter. Check the pyramid 
after you get the scepter. 

• Patrick Slagle: In the Interbank Inci- 
dent, the slot in the yacht is a tape player. 

• Cory Harris: Get in the boat and give 
the monkey some Lob ace o in Dallas 
Quest. 

• Thomas Crowe: In Dallas Quest, to 
pass the rat, get the sunglasses at the pool 
and give them to the owl. Go to the barn 
and drop the owl. Read the tombstone or 
get lost in the field. 

• David Whyburd: In Vortex Factor, a 
clue to the combination to the safe is 
found in the office deck in London. 

In Dungeons of Daggorath, how do 1 
incanl the wizard's supreme ring? 

David A. Ellis 
Hopkinsville, KY 

• John Austin: In Hitchhiker's Guide to 
the Galaxy, when the bugblatter beast 
asks for your name, tell him Arthur Dent, 
then go east. Type PUT TOWEL OVER MY 
EVES and get the sharp stone. Carve 
"Arthur Dent" and remove the towel. Go 
west then southwest and gel the interface. 
Wail until the beasthunters come. 

• Marc Paulin: In Dallas Quest, to stop 
sinking, you should try giving the mon- 
key some tobacco out of the pouch. He 
will then plug the hole with his tail. 

• Ted Scarbrough: In Sea Quest, the 
piece you are missing is the ruby statue. 
It can be found by digging where the 
weather balloon is. 

I found the anchor, pearl, silver and 
the statue. Where is the diamond ring? 
Chris Hoi comb 
Syracuse, NY 

• Paul King: In Dallas Quest, bribe the 
monkey with the tobacco to plug the 
hole. Then, just row with the shovel. 



• Ric Yates: In Dallas Quest, get to the 
trading post and type PULL CURTAIN. 

A! Adams 
Windsor, PA 

• Stcvtc Nakahara: In order to gel the 
vector plotter in Hitchhiker's Guide to 
the Galaxy, turn the switch that is located 
in the Vogon Hold. You don't need the 
keyboard. Remember, take it easy and 
try to enjoy the Vogon poetry. In order 
to get past the screening door, you must 
show it tea and no tea at the same time. 

In The Magic of Zanth, how do 1 get 
past the lake and how do 1 open the 
bottle? 

Jeff Ho It ham 
Waterloo, Ontario 

• Graham Stinson: In Sands of Egypt, 
the axe can be found at the top of the 
pyramid. It is used to cut the palm fronds 
at the tree. In order to gel to the tree, go 
to the pool and type WALK TREE. 

How do you get into Krill's Lair in 
Enchanter"} 

Joseph Delaney 
Augusta, GA 

Scoreboard: 

In Dungeons of Daggorath, try not to 
keep everything you find. It will weigh 
you down, make your heart speed up and 
make you faint more easily. 

If you find an object and cannot reveal 
it, then stow it in your backpack and try 
to reveal it again after killing more 
creatures. 

When using rings, be sure your heart 
is rested or the use of the ring may kill 
you. 

Once you go down a level, don't go 
back up or the wizard will send stronger 
creatures to destroy you on that level. 

Try to learn to recognize the sound of 
each monster; this will help you to get 
ready to fight them. 

If you have a cassette player, try to save 
your place on the tape because it will save 
you a lot of time and is very handy. 

Brian Liguori 
Bangor, PA 

Scoreboard: 

In Dungeons of Daggorath, how do 
you incant the Supreme ring? 



In Pyramid, how do you water the 
bean plant? When do you use PLUEH? 

In Raaka-Tu, how can you find the 
gem? What do you do after you go down 
the secret passage and climb the hole? 

Stephane Martel 
Laval, Quebec 
Scoreboard: 

How do you defeat the wizard's image 
in Dungeons of Daggorath'l 

How do you gel past the rug and the 
statue after it turns toward the west door 
in Raaka-Tul 

Matthew Lohse 
Camarillo, CA 
Scoreboard: 

In Hall of the King, 1 cannot burn ihe 

fermenting grain and get to the hidden 

room. I have the match and the stick, but 

whenever I try to light it, the game says 

"You can't do that now!" What is the acid 

in the vial used for, and what is the 

purpose of the "still air" in the high 

priest's chamber? 

David Galloway 

Phoenix, MD 
Scoreboard: 

In Sands of Egypt, I'm in the outer 
chamber. I've translated the hieroglyph- 
ics bin need specific instructions on what 
to do with the scepter. The hole in the 
roof just brings me back to the emptied 
pool. 

In Dallas Quest, I'm in Chugalug's 

Emporium and need to know where the 

flashlight is so 1 can light the basement. 

George Lane 

Chicago, 1L 

To respond to other readers' inquiries 
and requests for assistance, reply to 
"Scoreboard Pointers," c/o THE RAIN- 
BOW, P.O. Box 385, Prospect, KY 40059. 
We will immediately forward your letter to 
the original respondent and, just as impor- 
tantly, we'll share your reply with all 
"Scoreboard" readers in an upcoming 
issue. 

For greater convenience, "Scoreboard 
Pointers" and requests for assistance may 
also be sent to us through the MAIL 
section of our Delphi CoCo SIG. From the 
CoCo S1G> prompt, pick MAIL, then 
type SEND and address to: EDITORS, Be 
sure to include your complete name and 
address. 
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BOTH 

WINNERS I 
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J All of our OS-9 products J 

J work with: J 

OS-9 version 1 % 

OS-9 version 2 £ 

OS-9 Level 2 



' Menu oriented 

' Upload/down I old Asdl 

or XMODEM protocol 
■ Execute OS-9 commands 

from within XTERM 



XTERM 

OS-9 Communications program 



• Definable macro keys 

• Works with standard serial port, RS232 
Pak, or PBjf 2SP Pack, Includes all drivers 

• Works with standard screen, Xscrcen 
WORDPAK or DISTO 80 column board 



$49.95 with source $89.95 









XDIR & XCAL 



HEcrarchial directory OS-9 calculator 

■ Full sorting ■ Decimal, Ilex, Binary 

• Complete pattern matching ■ +,-,*,/, AND, OR, XOR, NOT 

$24.95 with source $49.95 
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XDIS 

OS-9 disassembler 
$34.95 with source $54.95 



""- : . -: ■ ^ •■■ •rw r- ' 



____ 



HARDWARE 



512k memory upgrade 

Ram Software 
Ram Disk 
Print Spooler 
Quick Backup 



$80.00 



All three for only 
$19.95 



"Software by CoJorVcnruro 



XWORD 

OS-9 word processing system 

Wnrks with standard text screen, XSCREEN, WORDPAK, or DISTO 

True character oriented full screen editing 

Pull block commands 

Find and Replace commands 

Execute OS-9 commands from within 

Proportional spacing supported 

Full printer control, character size, emphasized, italics, ovcrstrikc, 

underline, supcW sub -scripts 

10 header^ foolers 

Page numbering in decimal or Roman numerals 

Margins and headers can be set different for even and odd pages 

$69.95 with source $124.95 

XMERGE 

Mail merge capabilities for XWORD 
$24.95 with source $49.95 

XSPELL 

OS-9 spelling checker, with 20000 and 40000 word dictionaries 

$39.95 

XTRIO 

XWORD/XMERGE/XSPELL 
$114.95 with source $199.95 

XED 

OS-9 full screen editor 
$39.95 with source $79.95 



AND FOR RS DO 




SMALL BUSINESS ACCOUTING 

This sales-based accounting package is de- 
signed for the non-accountant oriented busi- 
nessman, II also contains the flexibility Tor 
the accounting oriented user to set up a double 
entry journal with an almost unlimited chart 
of accounts. Includes Sales Entry, transaction 
driven Accounts Receivable and Accounts Pay- 
able. Journal Entry, Payroll Disbursement, 
and Record Maintenance programs* System 
outputs include Balance Sheet, Income State- 
ment! Customer and Vender status Reports, 
Accounts Receivable and Payable Aging Re- 
ports, Check Register, Sales Reports, Account 
Status Lists, and a Journal Posting List* 

$79.95 

INVENTORY CONTROL/SALES ANALYSIS 

This module is designed to handle Inventory 
control, with user defined product codes, and 
produce a detailed analysis of the business* 
sales and the sales force. One may enter/update 
Inventory data, enter sates, run five sales anal- 
ysis reports;, run five inventory reports, set up 
product codes, enter/update salesman records, 
and update the SBAP inventory. 

$59.95 



PAYROLL 



Designed for maintaining personnel and 
payroll data for up to 2QA hourly and salar- 
ied employees with 8 deductions each. Cal- 
culates payroll and lax amounts, prints 
checks and maintains year-to-date totals 
which can be automatically transferred to 
the SBA package. Computes each pay peri- 
od's totals for straight time, overtime and 
bonus pay and determines taxes to be with- 
held, AdUlonal outputs include mailing list, 
listing of employees, ycar-to-date federal 
and/or state tax listing, and a listing of cur- 
rent misc. deductions. Suited for use in all 
states except Oklahoma and Delaware 

$59.95 



PERSONAL BOOKKEEPING 2000 
Handles 45 accounts. Enters cash expenses as 
easily as checks. Handles 26 expense catego- 
ries. Menu driven and user friendly. 

$39.95 



ACCOUNTS RECEIVABLE 

Includes detailed audit trails and history 
reports for each customer, perpares In- 
voices and monthly statements, mailing la- 
bels, aging lists, and an alphabetized cus- 
tomer listing. The user can define net 
terms Tor commercial accounts or finance 
charges for revolving accounts. This pack- 
age functions as a standalone A/R system or 
integrates with the Small Business Aceting 
package. 

$59-95 

ACCOUNTS PAYABLE 

Designed for the maintenance of vendor 
and A/P invoice files. The system prints 
checkSj voids checks, cancels checks, de- 
letes cancelled checks, and deletes paid A.-T 
Invoices, The user can run a Vendor List, 
Vendor Status report, Vendor Aged report, 
and an A/P Check Register. This package 
can be used either as a standalone A/P sys- 
tem or can be Integrated with the Small 
Business Accounting Package. 

$59.95 



MICROTECH 

CONSULTANTS 

INC 



1906 Jerrold Avenue 
St. Paul, MN 55112 



Ordering Information 

Add $3,00 shipping & handling, MN resident add 6% salts tax. 
Visa, Mastercard. COD (add S3 -50), personal checks. 



D eater Inquiries Invited . 
Author Sufrmisfioits accepted 
OSt?9 is a trademark of Micro ware- 



(612) 633-6161 



I BAS I C Tra ining 



16K ECB 



This month's tutorial is geared to 
you beginners who are struggling 
with the complexities of PRINT, 
EDIT and SET as you get on familiar 
terms with your new companion, the 
CoCo. 

Whenever I capture a new convert lo 
CoColand and plop him down in front 
of the virgin screen, he is taught to 
create a first program. This usually 
consists of name and address in three 
lines, tastefully centered on the Lo-Res 
text screen. The young student is invar- 
iably captivated by seeing his name and 
vital statistics portrayed on the screen. 
A copy of My First Program is saved 
for posterity. 

The second lesson is an expansion of 
the first program, both to reinforce 
what was previously learned and to 
augment budding skills, and adds new 
personalized data such as birthday, age, 
school, parents' and friends 1 names, etc. 
The first thing you know, a personal 
database or file is created, a file that 
reflects items of interest to the student 
that he has committed to memory, 
allowing him to concentrate on hunting 
and pecking. 

It is strongly recommended that the 
student have a copy of My First Pro- 
gram. Like a photo of oneself, taken in 
days long gone, running through the 
first programs can be a nostalgic and 
emotional experience. 

What has this chatter got to do with 
you? Most demo programs the 
newcomer encounters in his march 
through a manual arc wrung-out, bare- 
bones, uninspiring programs that ig- 
nore the student's desire to create 
something both personal and useful. 

My object is to prepare a follow-up, 
second lesson that will both inform a 
student and sustain his interest. The 
program should be personalized and 
pleasing to the eye. Rather than blow 
my own horn and bore you stiff with the 
niceties of my lesson plan, let's pretend. 

Let's pretend you are truly a newcom- 
er and have plowed laboriously through 
the first lesson in your BASIC manual. 
Pretend you are in a classroom setting 
in a hands-on session at the CoCo. You 
are paying close attention to the instruc- 

Florida-based Joseph Kolar is a veter- 
an writer and programmer who special- 
izes in introducing beginners to the 
powers of the Color Computer. 



Do you still have 
your very first program? 

Reliving 
Your First 
Keystrokes 



By Joseph Kolar 

Rainbow Contributing Editor 



tor. 1 bet you will learn or recall some 
tidbits you may have forgotten. 

"Turn on CoCo! Sssh! Program lines 
shall begin at 10 and move up by 10s. 
Line will be reserved for whatever 
eight-character or less title you choose 
for the, as yet, unknown and unfinished 
graphic." 

Entering 10 CLS clears the screen and 
gives us a fresh drawing tablet. A PRINT 
will conveniently drop the cursor down 
one horizontal row. Type and enter the 
following: 

20 PRINT 
30 PRINT 

Continue to create three more PRINT 
lines — 40, 50 and 60. Now run your 
program (by typing RUN and pressing 
ENTER). Not very impressive, but we 
have created five blank rows — no 
inconsiderable achievement. 

To gel CoCo to print something on 
the screen, the desired word or words 
must be enclosed within quote marks. 
To be printed, any combination of 
characters/ spaces must be so enclosed. 

Rekey Line 20 as 20 PRINT 
"DOCHITR" and run. You will see D0- 
CHITR printed on the top line with four 
innocuous blank lines followed by OK 
and the cursor ready for action on the 
sixth line, presently occupied by DK. 
This means that CoCo is announcing it 



has complied with your wishes. So far, 
so good! It is awaiting more instruc- 
tions. 

To put DOCHITh on Line 60 is no 
problem. Rekey Line 60, and note that 
the closing quote is often optional; if 
you omit it, CoCo assumes it knows 
your intentions. Try entering and run- 
ning this: 

50 PRINT-'DOCHITfl 

You see, it prints with no difference. 
However, until you have progressed a 
lot further in your studies, add the 
closing quote wherever possible. 

To add oaCHITR on the third line 
(and without dismantling the existing 
line), use the EDIT statement. Enter 
EDIT40 and press X to jump to the end 
of the line. Type "DOCHITB" and press 
ENTER. This stuffs the word into CoCo's 
memory. Now run. 

Whenever possible, use the EDIT 
statement rather than rekeying a pro- 
gram line. 1 advocate the use of EDIT 
as soon as the second lesson. When you 
begin to program, you will make plenty 
of mistakes that must be corrected. To 
me, EDIT is the eraser at the end of a 
pencil. Use it! 

If you want to indent two spaces in 
Line 20, enter EDIT20 and press the 
space bar until your cursor is over D. 
Pressing 1 (for insert) opens up the space 
between the opening quote and the first 
character, D. Press the space bar once 
for each desired space; in this instance, 
press the space bar twice and then press 
enter. CoCo inserts two spaces and 
closes up with the balance of the line. 
Run. 

Line 30 will contain DOCHITfl but 
take care of space by using PR INT - 
TAB(x). Enter EDIT30 and press X to 
jump to the end of the line. Enter 
ThB{0). CoCo will indent the desired 
number of spaces in the row designated 
by whatever value is currently between 
the parentheses. To indent two spaces, 
enter EDIT30 and press the space bar 
until the cursor is over 0. Type C2 — 
CoCo is told to change (C) the character 
above the cursor to 2. Press SHIFT and 
the up arrow to get out of the Change 
mode. Press ENTER, and then run. 

On your own, add the missing DD- 
CHITfl on Line 50. Be sure to indent two 
spaces. Use the PRINTTAB statement. 

Did you notice that Line 50 may have 
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been indented four spaces? This would 
occur if you used a TAB value of 2 and 
also left two blank spaces between the 
opening quote and the first character. 
The rule to follow whenever using 
PRINTTRB is to indent with the number 
value and begin the first character right 
after the opening quote. Run. Now use 
EDIT to indent Lines 40 and 60 to get 
a nice, straight column. 

Enter LIST to take a look at our 
program listing. We want to delete 
ThB(2) from Lines 30 and 50. Enter 
EDIT30 and press the space bar until the 
cursor is over the second T. Six charac- 
ters (TRB ( 2 ) ) are to be deleted. Type SD 
and press ENTER. Do the same for Line 
50. Run the program and then list it. On 
your own, delete the two indenting 
spaces in the three remaining lines using 
EDIT. 

Press CLEAR and run again. Five 
DDCHITHs are bunched up in the upper 
left-hand corner. What have we done? 
We have written a name to the screen 
on five successive lines. Enter LIST to 
see the program listing. If we wanted 
only blank rows, we could rekey the five 
PRINT lines. We could edit out the 
quotes and the enclosed name. But that 
is a lot of work. Let's do it the easy way! 



Enter DEL20- and key in this line: 20 
PRINT: PRINT: PRINT: PRINT: PRINT. 
Run the program to see what our new 
line has done. Let's try it another way. 
Enter DEL20 and replace our defunct 
line with a new Line 20: 20 FDR X=l TD 
5:PRINT:NEXT. Run. The X is the 
number of rows involved. In this case, 
the first through fifth rows. At each 
row, CoCo prints a blank line (PRINT:) 
and goes on to the next X until all five 
PRINTs are executed. 

If we want to use this loop to print 
a three-space indented DDCHITfl, we 
enter EDIT20 and press the space bar 
until the cursor is over the second colon. 
Press 1, enter "DDCHITfl" and run. If 
you forgot the closing quote, disaster 
strikes! Make this error to see what 
happens. 

Note, also, that :NEXT is the proper 
format to agree with the X in the loop. 
In a single loop, with a FDR-NEXT item, 
CoCo is forgiving. It is best to use the 
variable indicator after NEXT because 
sometimes CoCo is very demanding and 
wants to know precisely which variable 
you are referring to. 

From Line 20, edit out all instructions 
to CoCo to print DQCHITA. This in- 
cludes the quotes. Enter EDIT20 and 



press the space bar until the cursor is 
over the opening quote. Entering 12D 
deletes both quotes, three spaces and 
seven letters. Run the program to see 
the difference. 

Now that we know how to move text 
around the screen, we'll personalize the 
program. First, bear with me and use 
my example. I am using the name and 
address of a good colleague. Re- 
member, if you use your name and 
address or that of a close associate, 
aside from yourself, the author, you will 
have an approving audience of one. 

Line 30 will contain the centered 
name. Enter this line: 30 PRINT- 
TAB[9) "DDCHITfl D. MAV" and run. We 
indicate a skipped line by using PRINT: 



49 PRINT 

50 PRINTTHBI 
AVE." 



7)"510 HIGHLANDS 



We add the town, etc., after an inter- 
vening blank line. This time we will use 
a multiple-line statement. We include 
both the empty row and the last line, 
separated by a colon: 

G0 PRINT:PRINTTAB[5)" 
INVERNESS, FL. , 32G52" 



Check Account Indorsation 



System 



If you fvave one or oiore checking 
accounts then you need CftlS . This is 
not just another checkbook program but 
an easy to use. menu driven, disk based 
i nf orraat i on system i or the CoCd 1, 2, 3. 

Record all account activity. Keep trad- 
of your expenses using the 36_ c ategory es 
that you de-fine. Set up automatic 
transact! one for such items as direct 
deposits and deductions. Reconcile and 
bal ance your account's) i_n_ minutes ! 
Other features include check search o n 
any field, edit and delete capability, 
di spl ay and print options, mul tj -tk i ve 
capability and more. Requires 1 drive, 
pri nter opti onal . 

Reviewed in RAINBOW, February 1988.. 



After Five Software 
P.O. Box 210975 
Columbia, SC 29221-0975 
(803) 788-5995 



RAINBOW 

Cf*T**C*TK>ft 



To order send check or M.D. for $34,75 

plus *3.00 S/H. COiJ orders add 11.00. 

(SC residents please add 52 sales t a >; ) 



MLBASIC 2.0 - BASIC Compiler 

The wait is over. WASATCHWARE announces the latest version 
of MLBASIC designed to allow more compatibility with existing BASIC 
programs than ever available before for the Color Computer. This 
version also allows full use of the capabilities and memory of the 
CoCo 3. Written, in machine language, MLBASIC can compile programs as 
large as S4K bytes. Standard floating point (9 digit precision), 
INTEGER, and String type variables and arrays supported. 



COMMANDS SUPPORTED- 



I. I/O commands 



CtOSE CLOADM CSAVEM 


DIR 


DRIVE 


DSKIS 


DSKOS 


FIELD 


FILES GET INPUT 


KLL 


LSET 


OPEN 


PRINT 


PUT 


RSET USING LINEINPUT 










2. Program conlrol commands 










CAtt DEFUSR END 


EXEC 


FOR 


NEXT 


GOSUB 


GOTO 


IF THEN ELSE 


ERROR 


ON 


RETURN 


STOP 


USR 


3, Funclions 












ABS ASC ATN 


COS 


CVN 


EOF 


EXP 


FIX 


HPOINT INSTR INT 


LEN 


LOG 


LPEEK 


LOC 


LOF 


PEEK POINT PPOINT 


RND 


SGN 


SIN 


SQR 


TAN 


TIMER VAL VARPTR 












4. String funclions 












CKRS INKEYS LEFTS 


MIDS 


MKNS 


RIGHTS 


STRS 


STRING! 


5, Graphic/Screen commands 










ATTR COLOR CLS 


CIRCLE 


DRAW 


HCOLOR 


HSCREEN 


HDRAW 


HLINE HPAINT HPR1NT 


HRESET 


HCIRCLE 


HCLS 


HSET 


JOYSTK 


LINE LOCATE PALETTE 


PAINT 


PCLEAR 


PCLS 


PLAY 


PMODE 


PRESET PSET RESET 


SCREEN 


SET 


SOUND 


WIDTH 




6, Other commands 












DATA DIM MOTOR 


POKE 


LPOKE 


RESTORE 


READ 


REM 


TRON TROFF TAB 


VERIFY 











Plus many more commands not available with regular BASIC which allow 
interlacing wilh hardware registers and machine language programs. 

<< << 0WLY»59 S8 >>>> 

COCO 3 WITH DISK REQUIRED -Add $4.00 Postage. 
CHECK or MONEY ORDERS only. No COD. or Bank cards. 

Foreign orders use U.S. MONEY ORDERS only. 



WASATCHWARE 

7350 Nutree Drive 

Salt Lake City, Utah 84121 

Phone (801) 943-1546 
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Notice that the three lines are neatly 
centered, both horizontally and verti- 
cally. There are five rows above the 
legend and six rows below. If you count 
all the rows, you will confirm there are 
16 text lines available. If you begin at 
the left margin and watch the cursor as 
you space over to the right, you will 
count to 32, verifying that the text 
screen is 32-by-l6. 

At this point, substitute a name and 
address of your choice. Re-center it by 
changing values in each TAB line. Use a 
6-inch ruler if you arc in doubt about 
the centering. Remember, it need not be 
centered exactly, so long as it looks 
pleasing to you. 

This program cries out for a border. 
In Lo-Res graphics, the screen's resolu- 
tion is 64-by-32 and the color chosen 
will be orange, 8. 

We begin by making a nice orange 
line across the top of the screen on the 
first, horizontal row. The leftmost space 
is designated as '0' and proceeds to the 
rightmost. 63rd, space. The vertical 
column ranges from (at the top) down 
to 3 1 . 

To start our border, enter this line: 

70 FOR H=0TOG3 : SET ( H , , 8 ) : 
NEXTH 

Compare this loop with the PRINT loop 
in Line 20. Instead of five blank rows, 
we are going to place (5ET) a dab of 
orange color (8) in every column of the 
top row (Column 0), commencing with 
through 63, horizontally. Run to see 
the top part of our border. 

We will proceed clockwise. This 
means our next border segment will run 
down the right side of the screen. 

On the last horizontal space, 63, 
beginning at the top, 0. we shall run 
down vertically and put a dab of orange 
in every space until we reach 31, the 
bottom right-hand corner. Enter this 
line: 

90 FOR V=0TO31:SET(G3,V,8) : 
NEXTV 

Run the program. If the chewed-out 
space bugs you, enter 200 GDTD200 and 
run. This makes a never-ending loop, so 
the OK is never reached and displayed. 
To do the bottom line of our border, 
we want to continue from right to left 
to maintain our clockwise direction. 
Enter this line: 

=30 FOR H=S3TO0 STEP- 1 :5ET(H, 

31, 83 : NEXTH 



Run. Going along the bottom, verti- 
cal column 31, we place our orange 
color in every horizontal location from 
63, the rightmost spot, left until we 
reach 0. We indicate that we want every 
space filled in succession by telling 
CoCo 5TEP-1, which means to count 
backward by increments of [, 

This STEP part of the FDR -NEXT 
statement was not required in the as- 
cending sequences. CoCo figures if you 
don't make your wishes known, it will 
default to STEP+1 and assume that is 
your intention. 

I think you can Figure out the ration- 
ale for the fourth side — we'd like to 
move upward and end at the point of 
origin (H=Q;V=0). Enter this line to 
finish the border and then run the 
program: 

100 FDR V=31TO0 5TEP-1:5ET 

[0,V.B):NEXTV 

At this time, I prefer to give the 
program a name, hidden from view by 
a REM statement. Enter 0' TITLE, sub- 
stituting whatever name you want for 
the lille. Using Line for the title is a 
handy convention Now save your 
program by whatever name you gave it 
in Line 0. 

You can use any Lo-Res color you 
desire. Merely substitute the new color 
value for the third variable in each SET 
statement. 

Which makes me rmtc . . four sides 
four different colors. One solid 
color makes a neat border but you may 
want to experiment by changing colors 
in various combinations. Do so now. 
When finished, enter NEU and 
CLOAD"TITLE", substituting your pro- 
gram name for TITLE. My idea is to use 
all eight colors in succession, one to a 
side, and see what it looks like. 

Enter EDIT70, type 2? and press the 
space bar. This is an alternate method 
of moving around within a line. Press- 
ing the space bar !00 times within Edit 
is not very efficient. Just use a likely 
number and press the space bar. If your 
guess was too low, keep tapping the 
space bar until you are over the target. 
If you overshot the landing field, use left 
arrow key to back up Type C twice and 
press ENTFR. Run the program. 

This time we are going to change fl 
to C and insert +1. To get where you 
want to go faster within Edit mode, 
enter EDIT50, type 23 and press the 
space bar. Press C twice, type 1+1 and 
then press enter. Run. 

Let's edit Line 90 using our shortcut. 



Enter EDIT90, type 33 and press the 
space bar (this moves you 33 spaces 
within the line, remember?). Press the 
left arrow key three times, press C twice 
and I once, then type +2, press FNTER, 
and run. 

On your own, change the color in 
Line 100 to C+3, and run. It is not quite 
right, but we are not finished. To move 
this border through the range of colors 
from I to 8 (not to 8), we have to 
enclose lines 70 through 100 in a nested 
loop. Enter LIST and examine the 
listing. 

Can you see why we left all that space 
between line numbers 7 There is plenty 
of room to insert bits and pieces of our 
program without the annoyance of 
renumbering lines and throwing our 
minds into turmoil as we adjust to 
remembering a new set of line numbers. 
Enter these lines: 

G5 FDR C=l TO 9 

110 NEXTC 

Run the program and you'll see it 
goes along nicely, but runs out of steam 
when we get an FC Error in I me 100 
Enter LIST to search for the problem. 
Ah, when C became 6, C+3=9. a no-no. 
The solution is to explain what is what 
to CoCo (somewhere within the outer 
loop). When C gets unruly and out of 
range, it should shape up and get back 
to the first color (green) and Go! Go! 
Go! 

A good place is just before line 70. 
Enter this line: 

GG IF C+3=9 THEN C=i 

Run This would be a good time to 
save this version. Give it a title (0 
'CLRTITLE) and save it by that title 

Suppose I used IF c=9 then C=l? 
Would it work? Further, why didn't I 
use FOR C=0 to R^This is really splitting 
hairs. 

Take time out for a breather When 
renewed, revise the program to run in 
a counterclockwise direction 

Enter NEW to start from scratch, and 
load CLRTITLE (LORD'TLRTITLE" or 
CLDHD "CLRTITLE"). Let's see how it 
looks if we skip every second space. 

Enter ED I T70 and press the spacebar 
until the cursor is over the first colon, 
press I, type STEP+2 or 5TEP2 and press 
ENTER. 

Ditto for Line 80. 

For Line 90, enter EDIT90 and press 
the space bar until the cursor is over the 
1 of -1, press C and enter ?.. Ditto for 
Line 100. Run. 
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Not bad' It looks like a movie mar- 
quee Change Line and save the 
program as MARQUEE. 

What is wrong with all four sides in 
one color, which is perpetually chang- 
ing? Try this: Enter EDITGG and press 
the space bar until the cursor is over the 
3, press C, type 1 and press ENTER. 
Enter FD1TR0, press X to jump to the 
end of the line, press the left arrow key 
to chop nff the +. and enter 1 : NFXTy. 

Ditto for I ine90. C+? to C. 

Edit these lines whichever way vou 
please ! prefer to use X, backspace and 
make my adjustment. Another way i<- to 
enter EDIT90 and press the space bar 
until the cursor is over the +, press H 
and enter [:NEXTH. 

Now, in Line 100, change C+3 to C 
You know how! 

To make the color change occur in t he 
lower-left corner, edit Line 100 to rj -1 

1 like the last way better because your 
eye wanders to the upper-left cornei 
where you expect the color change to 
occur. Save your revision as MARQUEE 
after you change Line 

We haven't exhausted the possibili- 
ties Mask lines 80 and 100. This elim- 
inates the vertical sides. Run 

Now edit Line70to5TEP+l and Line 



90 to STEP-1, and run again. 

Just for kicks, let's advance the 
STEP+3 in Line 70 and STEP-3 in Line 
90 and run. 

This is getting out of hand. Unmask 
Lines 80 and 100 and run. This is an odd 
combo of plus and minus STEPs 2 and 
3. We might as well see what the whole 
thing looks line in STEP plus and minus 
3. 

Edit lines 80 and 100. By mistake, I 
changed lines 80 and 1 00 to STEP +1 and 
-1. respectively. That looks fine! 

Save whatever catches your eye. 
There are other combos to investigate. 
What do you say to a two-color, flash- 
ing screen? Enter these lines: 

G7 SCREEN0.1 
105 SCREENS, 

Now run. Talk about googly-eyed! Try 
these 

75 5CREEN0,0 
RS SRREEN0,! 
95 ?nREXN0,0: 
105 SCREEN®,! 

Run, and delete Line 85. Care to save 
anything? 



. . . And so it goes! H ave you noticed 
every time we attempt some new vari- 
ation, our effort is rewarded by suggest- 
ing some new experiment? The only 
thing to stop us is exhaustion or getting 
bleary-eyed from the constant blinking 
and rotational motion. 

Imagine what we turned up when we 
lifted the rock of ignorance from the 
nest of such BASIC concepts. We are 
scratching around in the most rudimen- 
tary BASIC program areas and looking 
at the wealth of goodies we uncovered. 
At the rate we are going, we have 
enough material to be mired down 
investigating various aspects of Lo-Res 
graphics that we may never graduate to 
ponder the wonders of CoCo 3's Super 
Extended basic. 

By the same token, we will never tire 
of our romp through basic and Ex- 
tended BAStc with CoCos 1 and 2. 

If you are a newcomer to CoColand, 
you have just taken a giant step on your 
way to computer literacy ... or should 
I say, artistry? Now, get back to your 
CoCo and kick over a few more rocks 
that we [eft undisturbed, and experi- 
ment with more variations on our 
simple, but fun, theme. □ 



Model 101 
Interface $39.95 



Model 104 Deluxe 
Interface $51.95 



Model 102 
Switcher $35.95 



Model 105 
Switcher $1 4.95 




• Se^al to parallel interfare 

• Works with any COCO 

• Compatible with "C en iron 
ire" parallel input printers 

• R swiich eifalprtabl^ baud 
rales 300 600-1 200-2400 
48(in-QfiO0 

• Small size 

4 5 U * ? 5" x 1 ?5" 

• Comes complete wilh 
cable? to connect to vour 
computer and printer 



Other Quality 
Items 

High quality 5 screw shell C- 
10 cassette tapes $7,507 
dozen 

Hard pi a stir storage boxes 'or 
cassette tapes S?.5CI'dozen 

Pin-Peed Cassette Labels 
White S3 00 1 0n 
Colors S3 R0 100 (specify 
red. blue, vellow tan) 



Samp lealnres as 101 plus 

• Ruilt in serial port for your 
modem pi other serial device 

• Switch between parallel 
output and serial oulpul 

• Size is 4.5" x 2.5" x 1 25" 

• Comes complete with 
cables to connect to your 
computer and printer 

NEW! Cables for 
your COCO 

■ u L. listed foil-shielded cable 

• ? Types male* lem ale exten- 
sion cables (used between 
a serial device and existing 
cable) male male cables 
(used between two serial 
devices such as a modem 
and one o' our switchers). 

• 3 ft. S3 95, fi It $4 49. 

10 ft '$5 59 Specify MM 
or M F and lenqlh 



• Connect to your COCO 
serial pod and have 3 switch 
selectable serial ports 

• Color coded indicator lights 
show switch ppsition 

• Lights also serve as a 
power on indicator lor your 
COCO 

• Heavy guage blue anodized 
aluminum cabinet with non- 
slip rubber feel 

The 101 and 104 require 
power to operate Moslprmt- 
ers can supply power to your 
interface (Star, Radio Shack 
and Qkidala are just a few thai 
do - Epson and Seikosha do 
not) The interlaces can also 
be powered by an AC adap- 
tor; Radio Shack model 273- 
1431 plugs into all models, II 
you require a power supply, 
add a "P" to the model number 
and add 55.00 to Ihe price 
(Model 101PS44.95, Model 
104PS56.95). 



» Connecls lo your COCO 
lo give you 2 switch select- 
able serial ports 

• 3 fool cable to connect to 
your COCO's serial port 

• The perfect item to use to 
conned a printer and a 
modem to your COCO 

• Small in size, only 4.5x2.5 
x 1.25 



The Model 101. 102. 104 and 
105 work wilh any COCO any 
level basic and any memory 
size. These products are co- 
vered by a 1 year warranty 

The Model 1 01 and 1 04 work 

wilh any standard parallel 
inpul printer including Gemini , 
Epson, Radio Shack, 
Okidata. C. loth. Seikosha. 
Panasonic and many others 
They support BARIC prim 
commands, word processors 
and graphic commands 

We manufacture these 
products - deafer inquiries 
are invited. 



Cassette Label V2.1 
Program $6.95 

• New Version - tape trans- 

lerrablr? lo disk - save and 
load labels from lape to disk 

• Prims 7_ lines of information 
on pin-feed cassette labels 

• Menu driven, easy to use 
» Standard, expanded and 

rondensed characters 

• Each line ol texl auto- 
matically centered. 

• Label display on CRT. en- 
abling editing before priming 

• Program comes on lape 
and is supplied wilh 24 
labels 10 get you started 

• 16K ECB required 

Ordering 
Information 

Free shipping in the United 
States (except Alaska and 
Hawaii) on all orders over 
S50.00 Please add S2 50 for 
shipping and handling on or- 
ders under $50 00 
Ohio residents add 6% 
sales lax 

Call (51 3) 677-0796 and use 
your VISA or MASTERCARD 
or request CO D. (Please 
add $2.25 for COD. orders). 
If you prefer, send check or 
money order; payable in U.S. 
Funds to: 

Metric Industries 
P.O. Box 42396 
Cincinnati. Ohio 
45242 
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C+l) :NEXTV 


Listing 1: 


90 FOR H=63 TO STEP-2 : SET (H, 3 1 


' <TTTLE> 


,C+2) :NEXTH 


10 CLS 


100 FOR V=31 TO STEP-2 : SET (0 , V 


20 FOR X=l TO 5 : PRINT : NEXTX 


, C-f-3 ) : NEXTV 


30 PRINTTAB (9) "DOCHITA D. MAY" 


110 NEXTC 


40 PRINT 


200 GOTO200 


50 PRINTTAB{7) "510 HIGHLANDS AVE 




Listing 4: 


60 PRINT : PRINTTAB ( 5 ) "INVERNESS , 




FL, , 32652" 


'<MARQUEE1> 


70 FOR H=0 TO 63 : SET (H, , 8 ) : NEXT 


10 CLS 


H 


20 FOR X=l TO 5:PRINT:NEXTX 


80 FOR V=0 TO 31:SET(63,V,8) : NEX 


30 PRINTTAB (9) "DOCHITA D. MAY" 


TV 


40 PRINT 


90 FOR H=63 TO STEP-1 : SET (H, 31 


50 PRINTTAB (7) "510 HIGHLANDS AVE 


,8) :NEXTH 


tt 


100 FOR V=31 TO STEP-1 : SET (0 , V 


60 PRINT: PRINTTAB(5) "INVERNESS, 


,8) :NEXTV 


FL. , 32652" 


200 GOTO200 


65 FOR C=l TO 8 




66 IF C+l=9 THEN C=l 

70 FOR H=0 TO 63STEP2 : SET (H , , C) 




Listing 2: 


:NEXTH 


' <CLRTITLE> 


80 FOR V=0 TO 31STEP+2:SET{63,V, 


10 CLS 


C) : NEXTV 


20 FOR X=l TO 5:PRINT:NEXTX 


90 FOR H=63 TO STEP-2 : SET (H , 3 1 


30 PRINTTAB(9) "DOCHITA D. HAY" 


,C) :NEXTH 


40 PRINT 


100 FOR V=31 TO STEP-2 : SET (0 , V 


50 PRINTTAB (7) "510 HIGHLANDS AVE 


,C+1) : NEXTV 


ii 


110 NEXTC 


60 PRINT: PRINTTAB (5) "INVERNESS, 


200 GOTO200 


FL,, 32652" 

65 FOR C=l TO 8 




Listing 5: 


66 IF C+3=9 THEN C=l 




70 FOR H=0 TO 6 3 : SET (H ,0 , C) : NEXT 


'< BONUS > 


H 


10 CLS 


80 FOR V=0 TO 31:SET(63,V,C+1) :N 


20 FOR X=l TO 5:PRINT:NEXTX 


EXTV 


30 PRINTTAB(9) "DOCHITA D, MAY" 


90 FOR H-63 TO STEP-1 : SET (H, 31 


40 PRINT 


,C+2) :NEXTH 


50 PRINTTAB (7) "510 HIGHLANDS AVE 


100 FOR V=31 TO STEP-1: SET (0,V 


ii 


,C+3) :NEXTV 


60 PRINT: PRINTTAB (5) "INVERNESS, 


110 NEXTC 


FL. , 32652" 


200 GOTO200 


65 FOR C=l TO 8 




66 IF C+l=9 THEN C=l 
6 7 -SCREEN0,1 


Listing 3: 


70 FOR H=0 TO 63STEP3 : SET (H , , C) 


' <MARQUEE> 


: NEXTH 


10 CLS 


7 5 SCREEN0,0 


20 FOR X=l TO 5:PRINT:NEXTX 


80 FOR V=0 TO 31STEP+1:SET(63, V, 


30 PRINTTAB(9) "DOCHITA D. MAY" 


C) : NEXTV 


40 PRINT 


90 FOR H=63 TO STEP-3 : SET (H, 3 1 


50 PRINTTAB(7) "510 HIGHLANDS AVE 


, C) : NEXTH 


ii 


9 5 SCREEN0,0 


60 PRINT: PRINTTAB (5) "INVERNESS, 


100 FOR V=31 TO STEP-1 : SET (0 , V 


FL. , 32652" 


,C+1) : NEXTV 


65 FOR C=l TO 8 


105 SCREEN0,1 


66 IF C+3=9 THEN C=l 


110 NEXTC 


70 FOR H=0 TO 63STEP2:SET(H,0 J C) 


200 GOTO200 


: NEXTH 




80 FOR V=0 TO 31STEP+2:SET(6 3,V, 


/n\ 
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DIGISECTOR 
DS-69B 



<k 



VIDEO 
IGITIZER 
FOR THE 
COCO 3 

(AND ALL OTHER COCOS . . .) 

Hi 



suP^ u tioH 




COCO 3 SCREEN 



Terms: Visa, Mastercard, Check orC.O.D. 



USE YOUR COCO 3 TO ITS FULL POTENTIAL! 

Use The Micro Works' DIGISECTOR™ DS-69 or 
DS-69B and your COCO 3's high resolution graphics 
to capture and display television pictures from your 
VCR or video camera. The DIGISECTOR'" systems are 
the only COCO video digitizers available that 
accurately capture and reproduce the subtle shades of 
gray in TV pictures! 

• COLOR: Add color to your screen for dramatic 

special effects. 

• HIGH RESOLUTION: 256 by 256 spatial resolution. 

• PRECISION: 64 levels of grey scale. 

• SPEED! 8 images per second on DS-69B, 

2 images per second DS-69, 

• COMPACTNESS: Self contained in a plug-in 

Rompack, 

• EASY TO USE: Software on disk will get you up and 

running fast! 

• COMPATIBLE: Use with a black and white or color 

camera, a VCR or tuner. 

• INEXPENSIVE: Our low price puts this within 

everyone's reach. 

POWERFUL C-SEE 3.3 SOFTWARE 

This menu-driven software 

will provide 5 and 16 shades 

of gray to the screen and to 

the printer with simple 

joystick control of 

brightness and contrast. 

Pictures taken by the 

DIGISECTOR™ maybe 

saved on disk by C-SEE 3.3 

and then edited by our 

optional MAGIGRAPH, or by COCO MAX or 

GRAPHICOM. This versatile new software is included 

in both DIGISECTORS™ 




DS-69B and C-SEE 3.3 
DS-69 and C-SEE 3.3 



$149.95 
$ 99.95 



TRADE IN YOUR OLD DIGISECTOR™ 

If you already have one of The Micro Works' DS-69 or 
DS-69A DIGISECTORS™, you may return it to us and 
we will upgrade your unit to a DS-69B. 



UPGRADE DS-69A to DS-69B 
UPGRADE DS-69 to DS-69B 



$49.95 
$69.95 



The DS-69B comes with a one year warranty Cameras 
and other accessories are available from The Micro 
Works. 

NO RISK GUARANTEE 

If you are not completely satisfied with the performance of your new 
DS-69B, you may return it, undamaged, within ten days for a full 
refund of the purchase price. We'll even pay the return shipping. If 
you can get any of our competitors to give you the same guarantee, 
buy both and return the one you don't like. We know which one 
you'll keep. 



Purveyors of Fine Video Digitizers Since 1977. ^©C^J^y" 



P.O. Box 1110 Del Mar, CA 92014 (619)942-2400 



F e ature 



CoCo3 Disk 



64K Disk Mod. 





// '$ medieval mayhem as up t o 

four guildmasters battle to promote their 

candidates to kingship 





wtlfr xxi tfye 



pttt 9 tnafeer 



*V*tf|he room grew suddenly quiet as the door swung 
\3 [^ slowly inward. All eyes were glued to the en- 
^■^ trance as an old man, his frame bent and frail, 
hobbled into the room. As he approached the gathering, 
he spoke. 

"As you all know by now," he said in a voice that was 
surprisingly strong and unwavering, "the king is dead, 
and has left no heir. This could not have come at a better 
time, and we must exploit it to the fullest extent. The king 
was one of our worst antagonists, and we must be sure 
that the new king does not follow suit." He paused for 
a moment, letting the damp smell of earth surround him, 
then he sank down heavily into a chair. 

"Here is what I propose, 7 ' he continued. "We will 
support a candidate in the upcoming election. If he is 
elected, he will have no recourse other than putting our 
guild in a position of power. Do not be overconfident 
of victory, however. My fear is that one or all of our rivals 
will likewise support candidates. If that happens, this city 
will no longer be a haven for operations such as ours. 
It will be a battlefield." 

Scott Miller is a student at Fort Hays University. He 
enjoys role-playing games and medieval studies. Mike 
Cushing is a member of the U.S. Army Reserve, and also 
enjoys role-playing games. He and Scott have written 
several programs for the CoCo. 



H Pg £rntt pitllcr an* Tltke fflu^tng 
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To Be King is a Simulation that 
allows two to four players to take on the 
role of a guildmaster who wants his 
candidate to be the next king. A 128K 
CoCo 3 is required to run To Be King 
as written; however, the program will 
also run on a 64K CoCo 1 or 2 if the 
title screen in Listing 1 (lines 10 through 
80 and Line 99) and Line 120 of Listing 
2 are omitted. 

In order to run the programs, type in 
both listings, one at a time, and save 
them under the names KINGBOOT.BhS 
and KING. BflS. Do not write protect the 
disk, as a data file is written in the 
KINGB00T program. When you play To 
Be King, always begin with a cold start, 
because most of BASIC'S available mem- 
ory is used by the programs. 

The Ultimate Managerial Resource 

Running a guild is hard work, but all 
guildmasters have a magical box from 
the far future known as a CoCo. This 
is a wonderful item indeed, for it allows 
actions to be performed instantane- 
ously, with the results being known 
almost immediately. There are seven 
main functions that can be performed 
by this tool of potent enchantment, as 
shown on the main menu. 

A View to a Kill 

First, you have the ability to hire and 
dispatch thieves and assassins. Assas- 
sins are used to eliminate rival candi- 
dates and to close businesses that are 
allied with rival guilds. Spies are used 
to determine the relative strengths and 
weaknesses of the opposition, as well as 
to scout possible targets for your guild 
to take over. 

When a player chooses Option 1, he 
may hire spies, assassins, or both. Spies 
and assassins send contacts to each 
guild only once per turn, so if a guild- 
master wants to hire assassins, for 
example, he needs to hire these assassins 
all at once. Any Further contact for that 
week will be avoided as it poses an 
unnecessary risk. A third choice under 
Option 1 (which is also included in most 
other options) is that of listing the 144 
businesses that are currently in the city. 

Horse Trading 

The second choice on the main menu 
is negotiation. Negotiation is the pri- 
mary way to gain constant income for 
a guild. The first choice on the negoti- 
ation menu is to form an alliance with 
a neutral business. This action requires 
an amount of gold that you specify and 
the efforts of two of your guildsmen. 

If the negotiations prove successful. 




Table I: Chart of Commands 

I. Hire Spies and Assassins 

A. Hire Assassins 

B. Hire Spies 

C. Main Menu 
II. Negotiate 

A. Form an Alliance 

B. Invest in Allies 

C. List Businesses 

D. Main Menu 
III. Protection 

A. Assign Guards to Candidate 

B. Assign Guards to Business 

C. Hide Candidate 

D. Magically Hide Candidate 

E. Main Menu 
IV. Discredit 

A. Magically Discredit 

B. Spread Rumors 

C. Blackmail 

D. Main Menu 
V. Raise Funds 

A. Beg From Wizard 

B. Steal 

1. From Guild 

2. From Business 

3. From The Wizard 

C. Main Menu 
VI. Armed Conflict 

A. Recruit Locals 

B. Hire Mercenaries 

C. Train Locals 

D. Ambush a Guild 

E. Ambush a Business 

F. Main Menu 
VII. Status 

A. Main Menu 

B. End Turn 



Table 2: Investment Costs 

Moneylender: 2,000 

Inns & Taverns: 2,600 

Craftsmen: 280 

Farmers: 200 

Livestock traders: 2,100 




the guild will gain a variable amount of 
income dependent on the type of busi- 
ness that is being courted. 

A guild may also invest in allied 
businesses. This action requires a set 
amount of gold (see Table 2) and, 
although expensive, generally increases 
the income from that business by a large 
extent. Any number of negotiations and 



investments may be done in a turn, 
subject to available manpower and 
gold, of course. 

Self- Protection 

The third set of actions available are 
those that allow protection of candi- 
dates or allied businesses. Either may be 
protected with any or all men you have 
at your disposal. Protection helps guard 
both against assassination of candidates 
or business owners to prevent a loss of 
income, and it also works well against 
overt assault. 

Candidates may also be hidden at a 
cost of 200 gold pieces. Hidden candi- 
dates may not be guarded by guild 
members, but they have 20 guards 
protecting them who are loyal support- 
ers, but not guild members. Thus, no 
men are required for this action. 

The last option a guild may use to 
protect a candidate is to hire the wizard 
to magically protect him. Only guilds 
that are allied with the wizard may use 
this function. Magical protection costs 
1,000 gold pieces and provides the 
candidate with a horde of fearsome 
creations that function as his body- 
guards while he is hiding. Both forms of 
hiding must be renewed for every turn. 

Mud Slinging 

Another way to impede the flow of 
coins into rival guilds' coffers is to 
discredit their allies, which is the fourth 
option on the main menu. If the wizard 
is currently allied with a guild, then thai 
guild may magically discredit an enemy 
business. This action costs 100 gold 
pieces and eliminates income from the 
target business for that week. 

The same effect can be garnered in a 
more general fashion by hiring rumor- 
mongers to discredit a guild. These 
rumor-mongers cost 25 gold pieces to 
hire for one turn. They have the effect 
of taking away from one to 50 gold 
pieces of a rival guild's income. Note 
that you could possibly lose money by 
plying this tactic. 

The final option to discredit a guild 
is quite different — blackmail. Black- 
mail costs 150 gold pieces per target 
and, if successful, the target will end any 
alliances it may have, making it neutral 
once more. This action may be partic- 
ularly useful against businesses that are 
invested in, as opposed to merely allied 
with. 

Beg, Borrow or Steal 

The fifth option available to the guild 
masters is to raise funds. The first 
method of doing this is to ask for a 
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contribution from the wizard, who is 
notoriously fickle and prone to drastic 
mood swings. 

A guild need not be allied with the 
wizard to gain money in this manner, 
but it does help. It is always best to ask 
for very small quantities of money, and 
it is inadvisable to ask more than once 
per turn. When the wizard feels that a 
guild is being overly greedy, he has been 
known to destroy businesses allied with 
that guild. Only those in dire straits 
should ever ask for such a contribution. 

The other way to gain money is to 
send some of your men to steal from a 
rival guild, business or the wizard. A 
guildmaster may steal as many times per 
turn as he wants, subject to the amount 
of men available. The guildmaster 
determines how many men to send on 
each mission. Note that stealing is an 
all-or-nothing proposition. The penalty 
for failure is the death of the thieves. 

On to Battle 

The sixth option on CoCo's magic 
menu is armed conflict. This option 
allows the training and recruiting of 
more guildmcmbers, which will allow 
you to ambush rival guilds in order to 
kill their candidate, and to destroy their 
businesses and thus remove a source of 
income. Local people can be recruited 
to join the guild, but they are considered 
untrained, and the guild must pay the 
cost of the training. 

Recruitment of locals requires two 
guild members and an amount of gold 
the guildmaster specifies. Training 
requires no guild members, but does 
require an amount of gold. An alterna- 



tive to such recruiting is to hire merce- 
naries at the rate of 100 gold pieces each. 
It takes one guild member to hire 
mercenaries, who are already fully 
trained when hired. 

Other options under this menu in- 
volve overt armed actions. These func- 
tions are similar to the sending of 
assassins in regard to the effects of 
success. It is important to note that 
attackers are at a disadvantage, and 
even if they face no guards from a rival 
guild, they run the risk of death at the 
hands of normal citizens and traps 
meant to dissuade such activities. 

Statement of Conditions 

The last option on the main menu is 
the status report, which shows how 
much gold a guild's treasury contains as 
well as current income and income for 
the previous turns. It also lists how 
many untrained recruits are awaiting 
training, how many guild members cur- 
rently exist, and how many are available 
for action on the current turn. 

The second page of the report lists the 
businesses that are allies as well as those 
that the guild invests in. This screen also 
contains the method for ending a guild's 
turn and going on to the next guildmas- 
ter's actions. 

Order of Play 

When kingbdot is run, it asks how 
many guilds there will be in the game, 
how many weeks (turns) the game is to 
last, and what the names of the guilds 
are. It will then generate a data file 
called KING. DAT and run KING. 

Each player starts the game with 



1,000 gold pieces, no income, and 10 
guild members. Before each player's 
turn, he will be asked how much he 
wants to bid on the wizard's services for 
the next turn. The high bidder can then 
use any magical commands for the next 
turn. 

The game continues until there is 
either one candidate left or until the 
specified amount of weeks is concluded. 
If time runs out, the computer selects a 
winner using several criteria. If the same 
players want to play again, the comput- 
er will start the Simulation using the 
same parameters as were specified in 
KINGBODT. If the players elect not to 
play again, the computer will return to 
BASIC with a cold start. The game may 
be ended at any time by pressing the 
BREAK, key. 

Hints 

The best way to win at To Be King 
is to develop a strategy that extends a 
few turns into the future. It may appear 
to some people that emphasis in only 
one or two areas is good, but if an 
opponent finds a weakness, the game 
might soon be over! It may be a good 
idea to have all of the players agree not 
to use assassins for the first two or three 
turns, as a lucky break could remove 
candidates before they could even build 
a power base. Above all, never leave a 
candidate totally unprotected, and try 
to quickly gain a sizable income. 

(Questions or comments may be 
directed to the authors at 210 W. 15th, 
Hays, KS 67601. Please enclose an 
SASE when writing for a reply.) D 



y so . 



Listing 1: KINGBODT 



..181 

161 177 

183 173 

202 14 

END 118 



PCLEAR 1 

5 CLS 

6 X=RND( -TIMER) 
10 HSCREEN 1 

15 HCLS0 : PALETTE ,p ! PALETTE 1 , 

20 HDRAWBM10, 10S8BR3BDG3ERE2NR5 

DR6DR3NEGL2HLG3RND3ED3G2UH3NRNE3 

D2RDRDF2NU2R5NE3UL4BR10BU11BR4BD 

G4ND3RD4ED2ED2FNU7NR5ER5E3NTJ3LU4 

GU2GU2NGNL3HL2G3NGRD4 " 

3)3 HDRAW"58BD10BL3BR3BDNG3R5GL4N 

GR4G4NUFDLDBU8BR8ND2FDG5U3NE3LD4 

GL3NG2R2DRNR2DR4E3UGUGBR5BU9BR3B 



DG3ERE2R4GNL3G4ND2RNDBR2NRE5D2ED 

NRD2NE3G2NR3L4D2NEDR3D2R2ENEL6HL 

2G2" 

40 HDRAWS8BD8BR3BDG3ERE2NR4DR3G 

4NRNFD2BD2LNG2R3GNR3FR3LH2ENU3EU 

3E4D2EDR2NEL2BD2L3NGR3DLG2FRD3E2 

HDBR5BU10BR3BDG3ERE2NR4DR3G3LGLN 

GR3DL2FBD2LNG2R2DFU2RU4RND2UE4" 

50 HDRAW"S8BR2BU1BR2BDG2ER3NHGD7 

LNG2R2GR3GNLBR4HUH2UHUH2RF2DFDF2 

DFU11NRGR3GR3NEGLBR4BU4BR4BDG4ND 

3RD4F3R5E3U2LND2L4NLE4NEL3NDNFLN 

EU2G4RND6ED4GD2R5" 

60 HDRAW "BR7DR2DBR2BU2DR2DBR2BU 

2DR2D" 

70 HPRINT(16,19) ,"(C) 1988":HPRI 

NT (14, 20) , "S&M Software" 

80 PALETTE 1,64: PALETTE 12 ,64: PA 

LETTE 13,0 

90 I$=INKEY$:IF 1$="" THEN 90 

95 CLEAR 5000 
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97 DIM ML$(6) ,IN$(20) ,CM$(5£) ,FM 
$(6$) ,LT${8) ,BT(2J30) ,BS(2JB0) ,BG( 

2m 

99 HSCREEN J3 

10P INPUT M HOW MANY PLAYERS (2-4) 
";NP:IF NP<2 OR NP>4 THEN CLS:GO 
TO 1J3J3 

11/3 CLS:FOR X=l TO NP: PRINT "WHAT 
IS THE GUILD NAME FOR PLAY 
ER"X"?": INPUT GN${X) : GP(X) =X J 0J3 J : 
AF(X)=10:GG(X)=10:NEXT X 
12J3 INPUT "HOW MANY WEEKS UNTIL T 
HE NEW KING IS ELECTED" ;W 

140 FOR X=l TO 6: READ ML$(X):NEX 
T X 

141 DATA GUIDO'S MONEY HOUSE, TH 
E KING ' S ENVY , SHARKEY ' S LOAN EMP 
ORIUM,ALPHONSE'S FAMILY, HAPPY ED 
DIE'S FINANCING, THE GOLD EXCHANG 
E 

160 FOR X=l TO 20: READ IN$(X):NE 
XT X 

161 DATA THE ALE HOUSE, DRINKS A 
ROUND, THE BATTERED MACE, THE MI 
NSTREL, EHD'S PLACE , HARNEY ■ S LIQ 
UORS, PEACEFUL REST INN, THE DRA 
GON'S DEN, THE IMPERIAL HOSTEL, T 
HE BLUE HERRING INN 

162 DATA THE ELFIN DAMSEL, THE BL 
ACK ORCHID, THE ADVENTURERS GUILD 
,THE CROSSED SWORDS INN, BLOODHA 
WK TAVERN, THE GOLDEN UNICORN, K 
ING'S CASTLE, THE LOQUACIOUS BARD 
,ALL THE KING'S MEN, ELYSIUM ON E 
ARTH 

180 FOR X=l TO 50:READ CM$(X):NE 
XT X 

181 DATA SENSUOUS SILKS, MARKAN C 
LOTHES,CLAY CREATIONS , GOLDEN TIM 
BRE MUSIC, SEA WORTHY SHIPPING, F 
ROW'S SMITHY, BANNERS FOR PROCLAM 
ATION, FLASKS BOTTLES AND JARS , LO 
WAN'S CABINETS , FINE PARCHMENTS A 
ND INK 

182 DATA SWEETS AND CONFECTIONS, 
DEWQUAS' BARBERY , GLIMMER OF GOLD 
,THE GOOD BAKER, SUITS AND CLOAKS 
, PLEASURE OF PLATINUM, BRITE SKEI 
N WEAVERY,DELGAR THE ARMORER, SAM 
"S CHANDLERY, WOVEN DREAM CARPETS 

183 DATA PERFECT ESSENCE, THE MI 
NERAL BATHS , MACWEN ' S LEATHER SHO 
P, BROKEN HEEL COBBLER, LEXIS ' SCR 
IPT,LOKAN THE FLETCHER, BARREL M 
AKERS' GUILD, TITAN LUMBER COMPAN 
Y,SAVAR THE PHYSICIAN , SARL ' S MOR 
TUARY 

184 DATA SORAHAN'S COLORS, RARE S 
PICE, CLASH OF STEEL, SIGNOR ' S STU 
DIO,THE GRANITE MINER, HELKEN ' S F 
INE WEAPONRY, ETCHED PANES, MOLTEN 



WAX,WOOLEN WONDERS, TRUSTY'S SMI 
THY 

185 DATA LIQUID CURES ALCHEMY, BU 
TCHER'S BLEND, GLAZED POTTERY , GER 
WEK'S PAWN SHOP,QUESTEN THE SHAR 
PENER,TAROT REVEALED , ADDER ' S STI 
NG POISONS, BESVAN'S CUTLERY, FOR 
LADIES ONLY, YE OLDE TOY SHOP 

200 FOR X=l TO 60:READ FM$(X):NE 
XT X 

201 DATA MILLER, GUSHING, FIELDS 
, BARNETT, HARTMAN, LINDEN, HERL 
, ROHLEDER, BROOKS, LUEHRS , KLEI 
N, LEE, SMITH, JONES, BROWN, WHI 
TE, MINOR, WOLF, CASEY, VILLINES 

202 DATA ETHAM, STORM, STAGEY, H 
AGEN, CULVER, MC FLY, WEIS, KASS 
ON, DINKEL, LAMB, BERRYMAN, MEAD 
E, WITT, FABER, CAMPBELL, HORN, 
VINCENT, BREWSTER, DILLON, HEIL 

203 DATA FURMANSKI, BARBOUR, MAR 
SHALL, SCHUSTER, LUCAS, BIRD, WI 
LSON, SLOOP, DOAN, GRAFF, STURGE 
ON, THISSEN, ANDERSON, BACH, BOO 
R, PAGE, NEWTON, SOOK, LEIKER, B 
REIT 

220 FOR X=l TO 8 : READ LT$(X):NEX 
T X 

221 DATA ARABIAN KNIGHTS HORSES, 



Clearbrook Software Group 

ERINA - Symbolic User-mode Debugger for OS9 is 

a must for serious assembler and C programers. 
ERINA helps to find bugs quickly by displaying the 
machine state and the instruction being executed. Set 
address and register break points, assemble and disas- 
semble code, dump, search, and change memory, and 
much more! This program pays for itself over and over! 

SERINA - System-mode Debugger for OS9 Level 2 is 
invaluable when developing OS9 System Modules 
(device drivers, file managers, etc.). Trace execution, 
set break points, assemble and disassemble code, ex- 
amine/change memory and much more- SERINA has 
special provisions for debugging code with critical 
timing loops. A must for system programmers! 

MSF - MS-DOS File Manager for CoCo3/OS9l_2 al- 
lows you to read/write MS-DOS format diskettes while 
running OS9, No need for complex data conversions! 

ERINA (requires 80 col. display, OS9 L1/2 $69,00 

SERINA (call for requirements) $139.00 

MSF (requires CoCo3, OS9L2, SDISK3 driver) $45.00 

MSF with SDISK3 driver $65.00 

CSG IMS Information Management System 
Full-featured database manager for CoCo/OS9 $169.95 

Shipping - N. America; $5, Overseas: $10. 

Clearbrook Software Group, Inc. 

U.S.: P.O. Box 8000-499, Sumas, WA 98295 

CANADA: P.O. Box 8000-499, Abbotsford, B.C. V2S6H1 

Phone: (604)853-9118 

OS9 is a trademark of Microware Systems Corp., 
MS-DOS is a trademark of Microsoft Corp. 
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JUSAN'S CATTLE PENS, THE GOAT HER 


20: WRITE #1,IN$ (X) :NEXTX:FOR X= 


D,THE KING'S MOUNT, THE SHEEP AUG 


1TO50 : WRITE #1 , CM$ (X) : NEXTX : FORX 


TION,KEB'S STOCKYARD, YEWLON'S AN 


=1TO60:WRITE #1, FM$ (X) : NEXTX: FOR 


IMALS,THE MULE BARN 


X=1T08:WRITE #1, LT$ {X) : NEXTX: FOR 


222 OPEN"0",#l, "KING. DAT" 


X=1T04:WRITE #1, GG(X) ,GP (X) , GN$ 


22 3 WRITE #l,NP,W:FOR X=l TO 6:W 


(X) ,AF(X) :NEXTX 


RITE #1,ML$(X) :NEXT X:FOR X=l TO 


224 CLOSE #1:CLS: :RUN"KING" 






100 45 810 147 1465 133 

250 69 890..,.,. 103 1520 37 

340 33 950 36 1660 80 

400 174 1060 113 1800 25 

490 76 1160 20 1940 217 

570 160 1230 12 2040 217 

630 181 1330 68 2140 12 

730 97 1410 230 END 232 



Listing 2: KING 

PCLEAR 1 

10 CLEAR 2000:ZZ=0:XX=0 

20 DIM ML$(6) ,IN$(20) ,CM$(50) ,FM 

$(60) ,LT$(8) ,BT(144) , BS(144) , BG ( 

144) ,QD(144) ,ZX(144) 

2 5 FOR X=l TO 4:FQ(X)=0:NEXTX 

30 OPEN" I",#l, "KING. DAT" 

40 INPUT #l,NP,W:FOR X=1T06:INPU 

T #1,ML$(X) :NEXT X:FOR X=1TO20:I 

NPUT #1,IN$(X) :NEXT X:FOR X=1T05 

0:INPUT #1,CM$(X) :NEXT X:FOR X=l 

TO60:INPUT #1, FM$ (X) :NEXT X:FOR 

X=1T08:INPUT #1, LT$ (X) :NEXT X:FO 

R X=1T04:INPUT n,GG(X) ,GP(X) ,GN 

$(X) ,AF(X) :NEXT X 

4 5 CLOSE #1 

50 ZZ=ZZ+1:XX=0:IF ZZ>W OR DB+1= 

NP THEN 170 

60 XX=XX+1:GG(XX)=0:WV=0:AF=0:MH 

=0:SF=0:GOSUB 1750:WD=0:IF GS (XX 

)=1 AND DF(XX)=0 THEN 180 ELSE I 

F GS(XX)=1 THEN 160 

70 CLS 

80 PRINT"WHAT NEXT GUILDMASTER?" 

90 IF FQ(XX)=0 THEN GG(XX)=0:AF( 

XX) =10 : SF (XX) =0 : MH=0 : FQ (XX) =1 

1(30 PRINT" 1. HIRE ASSASSINS OR S 

PYS" : PRINT" 2 . NEGOTIATE" : PRINT" 3 

. PROTECT CANDIDATE OR ALLIES" :P 

RINT"4. DISCREDIT OTHER CANDIDA! 

ES": PRINT" 5. RAISE FUNDS" : PRINT" 

6. ARMED CONFLICT": PRINT" 7. STAT 

US" 

110 I$=INKEY$:IF 1$="" THEN 110 

120 ON BRK GOTO 2 130: ON ERR GOTO 

2 210 
130 I=VAL(I$) 
140 ON I GOSUB 200,490,650,830,9 



70,1350,1660 

150 GOTO 70 

160 GOSUB 1885: IF XX<NP THEN 60 

ELSE 50 

170 GOTO 1530 

180 DB=DB+1: PRINT" YOUR CANDIDATE 

IS DEAD . . . YOU LOSE. . . YOU BE 
TTER START PRAYING FOR THE KING' 
S MERCY [J ! " 

190 I$=INKEY$:IF 1$="" THEN 190 
ELSE DF(XX)=l:GOTO 160 
200 CLS:PRINT"HIRE ASSASSINS OR 
SPYS." 

210 PRINT"1. HIRE ASSASSIN" : PRIN 
T"2. HIRE SPYS": PRINT" 3. MAIN ME 
NU" 

220 I$=INKEY$:IF 1$="" THEN 220 
230 I=VAL(I$) 
240 ON I GOTO 260,360,250 
2 50 RETURN 

260 CLS:PRINT"HIRE ASSASSINS .": I 
NPUT"HOW MANY DO YOU WISH TO HIR 
E";NA:IF AF=1 THEN PRINT"YOU ALR 
EADY HAD YOUR CHANCE .": FOR PP=1 
TO 920: NEXT PP:GOTO 200 ELSE 270 
2 70 CO=NA*(100+RND(100) ) :AF=l:PR 
INTNA"ASSASSINS COST"CO:FOR PP=1 

TO 920:NEXTPP:GP(XX)=GP(XX) -CO: 
IF GP(XX)<0 THEN PRINT"WE DON'T 
DO CHARITY . " : GP (XX) =GP (XX) +CO : FO 
R PP=1 TO 9 20: NEXT PP:GOTO 200 E 
LSE 280 
280 IF X=0 THEN 200 ELSE FOR X=l 

TO NA 
285 CLS: PRINT "SEND ASSASSIN"X"TO 
— — « 

290 PRINT"1. CANDIDATE" :PRINT"2. 

BUSINESS": PRINT" 3. LIST BUSINES 
SES" 

300 I$=INKEY$:IF 1$="" THEN 300 
310 I=VAL(I$):ON I GOTO 320,340, 
335 < 

320 INPUT"WHICH CANDIDATE" ; AT: PD 
=RND(100):IF PD<3 OR PD<=20-GG(A 
T) THEN PRINT"SUCCESS! ! ! CANDIDA 
TE "AT" IS DEAD! ! ! ":GS(AT)=l: 
FOR PP=1 TO 9 20: NEXT PP:NEXT X:G 
OTO 200 
330 PRINT"YOUR ASSASSIN FAILS IN 

HIS MISSION. ":FOR PP=1 TO 
9 20: NEXT PPJNEXT X:GOTO 200 
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335 GOSUB 2030:GOTO 285 

340 INPUT"WHICH BUSINESS" ; AT: PD= 

RND(100) :IF PD<=5 OR PD<=40-BG(A 

T) THEN PRINT"SUCCESS! ! ! BUSINES 

S "AT'"S OWNER IS DEAD . " : PM=1 : GO 

SUB 2)350 :BT (AT) =1: FOR PP=1 TO 92 

0:NEXT PP:NEXT X:GOTO 200 

3 50 PRINT "YOUR ASSASSIN FAILS IN 

HIS MISSION. ": FOR PP=1 TO 
920: NEXT PP:NEXT X:GOTO 200 

3 60 CLS:PRINT"HIRE SPYS" : INPUT"H 
OW MANY DO YOU WISH TO HIRE";NS: 
IF SF=1 THEN PRINT"TOO LATE, ONE 

CHANCE IS ALL YOU GET . " : FOR PP= 
1 TO 920: NEXT PP:GOTO 200 ELSE 3 
70 

370 CO=NS*(50+RND(50) ) :SF=1:PRIN 
TNS"SPY(S) COST"C0:GP(XX)=GP(XX) 
-CO: IF GP(XX)<0 THEN PRINT "WE DO 
N » T WORK FOR PAUPERS . " : FOR PP=1 
TO 920: NEXT PP: GP(XX) =GP (XX) +CO: 
GOTO 200 ELSE FOR PP=1 TO 920:NE 
XT PP 

380 IF X=0 THEN 200 ELSEFOR X=l 
TO NS 

385 CLS:PRINT"SEND SPY"X"TO — ":P 
RINT"1. GUILD": PRINT" 2. BUSINESS 
": PRINT" 3. LIST BUSINESSES" 
390 IS=INKEY$:IF 1$="" THEN 390 
400 I=VAL(I$) :ON I GOTO 410,430, 
425 

410 INPUT"WHICH GUILD" ; rST : PD=RND 
(100) :IF PD>40 THEN 420 ELSE PRI 
NT"YOUR SPY IS CAUGHT": FOR PP=1 
TO 920: NEXT PP:NEXT X:GOTO 200 
420 CLS : PRINT"GUILD"ST"HAS : " : PRI 
NTGP(ST) "GOLD PIECES .": PRINT AF{ 
ST) "MEN.": PRINT IC (ST) "INCOME PE 
R TURN.": PRINT AL (ST) "ALLIES. ": F 
OR PP-1 TO 920:NEXT PP:NEXT X:GO 
TO 200 
425 GOSUB 2030:GOTO 385 

4 30 INPUT "WHICH BUSINESS" ; ST : PD= 
RND(100):IF PD<20 THEN PRINT"YOU 
R SPY IS CAUGHT. " : FOR PP=1 TO 92 
0:NEXT PP:NEXT X:GOTO 200 

440 CLS:PRINT"BUSINESS I, ST"IS:":I 

F BT(ST)=1 THEN PRINT"CLOSED" : GO 

TO 4 80 

450 IF BS(ST)=0 THEN PRINT"NEUTR 

AL":G0TO 4 80 

460 IF BS(ST)<C5=4 THEN PRINT"AL 

LIED WITH GUILD"BS(ST) : GOTO 480 

470 PRINT"GUILD"BS(ST) -4" INVEST 

5 IN THIS BUSINESS." 

4 80 FOR PP=1 TO 9 20: NEXT PP:NEXT 

X:GOTO 200 
490 CLS : PRINT"NEGOTIATE" : PRINT" 1 
. TRY TO FORM AN ALLIANCE" : PRINT 
"2. INVEST IN AN ALLIED BUSINESS 
":PRINT"3. LIST BUSINESSES" : PRIN 



T"4. MAIN MENU" 

500 I$=INKEY$:IF 1$="" THEN 500 

510 I=VAL(I$):ON I GOSUB 530,590 

, 640,520 

520 RETURN 

530 CLS: INPUT "WHICH BUSINESS DO 

YOU WISH TO ALLY WITH";AT 

540 IF BS(AT)<>0 THEN PRINT"THAT 

BUSINESS CLAIMS ALLEGIANCE TO A 
NOTHER GUILD": FOR PP=1 TO 920 :NE 
XT PP:GOTO 490 ELSE IF BT(AT)<>0 

THEN PRINT "THAT BUSINESS IS CLO 
SED":FOR PP=1 TO 920:NEXT PP:GOT 

490 

550 TB(XX)=TB(XX)-2:IF TB(XX)<0 
THEN PRINT "YOU HAVE TOO FEW MEN 
TO PERFORM THIS ACTION.": FOR PP= 

1 TO 920: NEXT PP:TB(XX) =TB (XX) +2 
.'GOTO 4 90 

560 INPUT "HOW MUCH GOLD DO YOU W 
ISH TO SEND ALONG" ,*BB:GP (XX) = 
GP(XX)-BB:IF GP(XX)<0 THEN PRINT 
"SMART GUILDMASTERS DON'T MAKE 

EMPTY PROMISES" : FOR PP=1 TO 920 
:NEXT PP:GP(XX)=GP(XX)+BB:GOTO 4 
90 

570 PD=RND(100) : IF PD<=(30+BB) T 
HEN 580 ELSE PRINT "NEGOTIATIONS 
FAIL TO PRODUCE FAVORABLE RES 
ULTS.":FOR PP=1 TO 9 20: NEXT PP:G 
OTO 4 90 

5 80 PM=0 : BS ( AT )=XX: PRINT "YOUR AL 
LIANCE OFFER IS ACCEPTED. ": FOR P 
P=l TO 920:NEXT PP:GOSUB 2050:PR 
INT"YOU GAIN"ZX(AT) "GOLD PIECES 
INCOME.": FOR PP=1 TO 9 20: NEXT PP 
:AL(BS(AT) )=AL(BS(AT) )+l:GOTO 49 



590 CLS: INPUT "WHICH ALLIED BUSIN 

ESS DO YOU WISH TO INVEST IN" 

;AT 

600 IF BS(AT)=XX THEN 610 ELSE I 

F (BS(AT)-4)=XX THEN PRINT" YOU H 

AVE ALREADY INVESTED WITH THAT 

BUSINESS.": FOR PP=1 TO 920:NEXT 

PP:GOTO 4 90 ELSE PRINT" YOU AREN ' 

T ALLIED WITH THEM YET.": FOR PP= 

1 TO 920: NEXT PP:GOTO 490 

610 IF AT<7 THEN CI=2000 ELSE IF 

AT<27 THEN CI=2 600 ELSE IF AT<7 
7 THEN CI=280 ELSE IF AT<137 THE 
N CI=200 ELSE CI=2100 
620 GP(XX)=GP(XX) -CI: IF GP(XX)<0 

THEN PRINT"MAN CAN'T LIVE ON EM 
PTY PROMISES. ": FOR PP=1 TO 920:N 
EXT PP:GP(XX)=GP(XX)+CI:GOTO 490 

ELSE PRINT"IT COSTS"CI"GOLD PIE 
CES.":PM=0:BS(AT)=XX+4 
630 GOSUB 2050:PRINT"IT ADDS"ZX( 
AT) "GOLD PIECES TO YOUR INCOME." 
:FOR PP=1 TO 920: NEXT PP:GOTO 49 
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640 GOSUB 2030: GOTO 490 

6 50 CLS: PRINT" PROTECT CANDIDATES 
AND BUSINESSES. ": PRINT 

"1. ASSIGN GUARDS TO CANDIDATE": 
PRINT "2. ASSIGN GUARDS TO BUSINE 
SS":PRINT"3, HIDE CANDIDATE" : PRI 
NT"4. MAGICALLY HIDE CANDIDATE": 
PRINT"5, MAIN MENU" 
660 I$=INKEY$:IF 1$="" THEN 660 
670 I=VAL(I$) :ON I GOSUB 690,740 
,780,800,820 
680 RETURN 

690 IF MH=1 THEN PRINT"YOUR CAND 
IDATE IS HIDING" : FOR PP=1 TO 920 
:NEXT PPlGOTO 650 

700 PRINT"YOU HAVE "GG( XX) "GUARDS 
CURRENTLY ON YOUR CANDIDATE. ": I 
NPUT"HOW MANY DO YOU WISH TO HAV 
E NOW";NG:IF NG<0 THEN NG=0 
710 IF TB(XX)-(NG-GG(XX) )< THE 
N PRINT"YOU CAN'T GUARD WITH GHO 
STSl":FOR PP=1 TO 9 20: NEXT PP:GO 
TO 650 

7 20 IF NG>GG(XX) THEN TB(XX)=TB( 
XX)-(NG-GG(XX) ) ELSE TB(XX)=TB(X 
X) + (GG(XX) -NG) 

730 GG ( XX )=NG: GOTO 650 
740 GOSUB 2030:INPUT"WHICH BUSIN 
ESS DO YOU WISH TO GUARD" ; PX : P 
RINT"THERE ARE "BG(PX) "GUARDS THE 
RE NOW." :INPUT"HOW MANY DO YOU W 
ISH TO HAVE NOW"?NG:IF NG<0 THEN 

NG-0 
750 IF TB-(NG-BGfPX) )<0 THEN PRI 
NT" YOU MUST THINK THIS ALLY IS 

BLIND!": FOR PP=1 TO 920: NEXT 
PP:GOTO 650 

760 IF NG>BG(PX) THEN TB(XX)=TB( 
XX)-(NG-BG(PX) ) ELSE TB(XX)=TB(X 
X)+BG(PX) -NG 
7 70 BG(PX)=NG:GOTO 650 
780 PRINT"HIDE CANTIDATE" :GP (XX) 
=GP(XX)-200:IF GP(XX)<0 THEN PRI 
NT"LOYALTY ONLY GOES SO FAR.":GP 
(XX)=GP(XX)+200:FOR PP=1 TO 920: 
NEXT PP:GOTO 650 

790 PRINT"YOUR CANDIDATE IS HIDD 
EN. " : GG (XX) =20: FOR PP=1 TO 920 :N 
EXT PP:MH=l:GOTO 650 
800 PRINT "MAGICALLY HIDE CANDIDA 
TE.":IF WF<>XX THEN PRINT "THE WI 
ZARD ONLY PROTECTS ALLIES": FOR P 
P=l TO 9 20: NEXT PP:GOTO 6 50 ELSE 

GP (XX) =GP (XX) -1000 
805 IF GP(XX)<0 THEN PRINT"THE W 
IZARD IS YOUR ALLY, NOT YOUR 
SLAVE. ": GP (XX) =GP (XX) +1000: FOR P 
P=1TO920:NEXT PP:GOT0 650 
810 PRINT "THE WIZARD WEAVES MAGI 
C AROUND YOUR CANDIDATE, AND HE 
IS THUS HI DDEN. ": GG( XX )= 100 :FO 



R PP=1 TO 920: NEXT PP:MH=l:GOTO 

650 

8 20 RETURN 

830 CLS:PRINT"DISCREDIT BUSINESS 

ES": PRINT" 1. MAGICALLY DISCREDIT 

.":PRINT"2. SPREAD RUMORS" : PRINT 

"3. BLACKMAIL": PRINT" 4. RETURN T 

MAIN MENU" 

840 I$=INKEY$:IF 1$="" OR I$<"1" 

OR I$>"4" THEN 840 
850 I=VAL(I$) :ON I GOSUB 880,900 
,930,870 
8 60 RETURN 

8 70 RETURN 

880 CLS: IF WFoXX THEN PRINT"THE 

WIZARD ONLY HELPS HIS SUP 
PORTERS .": FOR PP=1 TO 920: NEXT P 
P:GOTO 830 ELSE GP (XX) =GP(XX) -10 
0:IF GP(XX}<0 THENPRINT"THE WIZA 
RD DOESN'T DO CHARITY WORK.":F 
OR PP=1 TO 920:NEXT PP:GP(XX)=GP 
(XX)+100:GOTO 830 

890 GOSUB 2030: INPUT "WHICH BUSI 
NESS DO YOU WANT THE WIZARD TO 
ZAP" ; AT : DV (XX) =IC (XX) : IC (XX) =TI ( 
XX) :PM=l: GOSUB 2050 : PM=0 :TI (XX) = 
IC(XX) :IC(XX)=DV(XX) :PRINT"THE W 
IZARD'S SPELL DRIVES AWAY ALL C 
USTOMERS THIS WEEK.": FOR PP=1 TO 

920:NEXT PP:GOTO 830 
900 PRINT"SPREAD RUMORS" 
910 GP(XX)=GP(XX)-25:IF GP(XX)<0 

THEN PRINT" EVEN RUMORMONGERS NE 
ED TO EAT.":GP(XX)=GP(XX)+25:FOR 

PP=1 TO 9 20: NEXT PP:GOTO 8 30 
920 INPUT"WHICH GUILD DO YOU WIS 
H TO ATTACK" ;AT: PRINT "THE RUMORM 
ONGERS WORK TO STOP CUSTOMERS 
FROM DEALING WITH GUILD"AT:T 
I(AT)=TI(AT)-RND(50) : FOR PP=1 TO 

920: NEXT PP:GOTO 830 

9 30 CLS : PRINT "BLACKMAIL": INPUT "W 
HICH BUSINESS DO YOU WISH TO P 
LY THIS TACTIC ON" ; AT:GP (XX) =GP( 
XX) -150: IF GP(XX)<0 THEN PRINT" B 
LACKMAIL'S A CRIME AND WE AIN'TD 
OIN* IT FOR FREE.":GP(XX)=GP(XX) 
+150: FOR PP=1 TO 9 20: NEXT PP:GOT 
O 830 

940 PD=RND(100) :IF PD>40 THEN PR 

INT"THEIR AIN'T ENOUGH DIRT ON T 

HAT BUSINESS": FOR PP=1 TO 9 20:NE 

XT PP:GOTO 8 30 ELSE PM=1: GOSUB 2 

050:GOSUB 950 : AL(BS (AT) ) =AL(BS (A 

T) )-l:BS(AT)=0:PRINT"THEY BROKE 

THEIR ALLIANCE!": FOR PP=1 TO 9 20 

:NEXT PP:GOTO 830 

950 IF BS(AT)>4 THEN BS(AT)=BS(A 

T)-4 

9 60 RETURN 

970 CLS:PRINT"RAISE FUNDS": PRINT 

"1. SOLICIT CONTRIBUTIONS FROM 
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ARK ROYAL! 



A C E S is a high resolution, completely machine 
language game of aerial warfare in WW I. Player flies on 
many missions to bomb enemy targets including airfields, 
enemy headquarters, anti-aircraft batteries, bridges and 
factories, but not player's own air base. He must dodge 
mountains and dogfight with the enemy's best, including, 
if unlucky, members of the dreaded Flying Circus. After 
he shoots down five planes he becomes an ACE and 
receives special consideration; but the game is far from 
finished. ACES averages about 82 targets and over 
100 enemy aircraft per game. 

ACES plays in real time and displays flight simulated 
dash and controls. Operates from the keyboard. Included 
in the display is a high resolution mini-screen featuring 
terrain, targets, and player's relative ground position. 
There are 8 zones in each map which changes as player 
flies over it. Game Save. (It could take days to winl) In 
addition, NEWMAP is included to allow for the creation of 
a zillion new maps. ACES was created in part with 
AGS, developed by Ken Schunk. For all CoCo's 



WAR AT SEA: Wooden Ships simulate ship to ship battles during the 
18th Century. Player controls a number of sailing ships from different 
nations and must pit his seamanship against the computer or another 
player. 

NEW 

ACES: WWI Aerial Warfare (CC64K D HR ML) 

RED ALERT: Star Ship Warfare (CC64K D HR MLS J) 

WAR AT SEA: Wooden Ships (CC64K D HR MLS J) 

Pro Football: Strategy Gridiron game (CC3 128K HR B) $20 

Okinawa: The Big Invasion (Screen Dump inc) 

(CC64K D HR ML) $27 

Blitzkrieg West: A Bigger Bulge (CC64K D HR ML) $27 

Bataan: Historial & Hypothetical games in one 

(CC64K D HR ML) $29 

Desert Fox: Rommel (CC64K D HR MLS) $27 

Task Force: Modern Naval War in [he Med 

(CC64K D HR MLS J) $27 

D DAY: The 6th of June (CC64K HR ML) $25 

Battle Hymn: Battle of Gettysburg (CC64K D HR ML) $25 

Company Commander: Squad Level Wargame 

(CC32K SG MLS) 

(House to House Module included in Company Commander) 
Additional Modules for Company Company 3.0 

River Crossing 

Gemini 

Cauldron , 

Beach Head $17 

Fire One! Submarine Simulation (CCS D HR B) $25 

Fire & Steel: Waterloo Campaign (CC64K D HR MLS) $22 



RED ALERT: a starship combat simulator. Object of the game is to 
defeat the computer controlled enemy vessel by using your ship's 
capacities, strategic maneuvers, and your own smarts. 



$25 



$17 
$17 

$17 



Keyboard General: Bi-monthly newsletter yearly sub 

Barbarossa, Luttflolte, Battle Hymn (256K) available Tandy 1000 

New for the Tandy 1000 

Gray Storm Rising: War in the North Atlantic 



$29 

$27 

$25 

Luftflotte: Battle of Britain (CC32K SG MLS) S25 

Stalingrad: The turning point. (CC64K HR ML) $25 

Final Frontier: War in Space (CC32K D HR MLS) $25 

Barbarossa: The War in Russia (CC64K HR ML) $22 

RedStar: Nato vs Warsaw Pact (CC32K D HR ML) $22 

DarkHorse: Redstar Sequel (CC64K D HR ML} $22 

Midway: The Turning Point in the Pacific 

(CC32K HR MLS) $20 

Escape From Denna: Dungeons! (CC32K SG MLS) $15 

Tunis: War in the Desert (CC32K SG B) $15 

Battle of the Bulge 1 or 2 player (CC32K SG B} $15 

Phalanx: Alexander the Great (CC32K HR ML) $15 

Rubicon II: Invasion game (CC32K SG B) $10 

Guadalcanal: America Strikes Back (CC32K SG MLS) $10 

Waterloo: Napoleon (CC32K SG MLS) $10 

Bomber Command: Strategic Bombing Mission 

{CC32K SG MLS) $10 

Kamikaze: Naval War in the Pacific (CC32K HFt B) $10 

Starblazer: Strategy Star Trek (CC32K SG MLS) $10 

Mission Empire: Build an Empire in Space (CC32KSGB) .... $10 
Galactic Taipan: Economics in Space (CC32K SG B) $10 

$15 



$25 



Codes: CC — Color Computer, all versions CC3 — CoCo 3 only 

D — Disk only (no D means program available tape or disk) 

HR — High Resolution SG — Seriographies ML — Machine Language 

MLS — Machine Language Subroutines B — Basic J — Joystick 

Write for free catalog! 

Prices include shipping to USA and Canada. Others add $3,00. COD's available 
in USA only, add $3.50. Personal Checks accepted with no delays in USA. Others 
must send M.O. or Bank Draft in U.S. funds. Programs shipped within 24 hours 
except on weekends. Sorry, no bankcards. Color Computer and Tandy 1000, 
TM Tandy Corp, 

Florida residents add 6% sales tax. 

Canadians may order direct from: M & M Software, Post Office Box 1945, Slave 
Lake, Alberta T06 2A0. Write M & M Software for information. 



ARK ROYAL GAMES 

P.O. Box 14806 

Jacksonville, FL 32238 

(904) 786-8603 




WIZARD." : PRINT" 2. STEAL" : PRI 
NT" 3. RETURN TO MAIN MENU" 
980 IS=INKEY$:IF 1$="" OR I$<"1" 

OR I$>"3" THEN 9 80 
990 I=VAL(I$):ON I GOSUB 1020,10 
90,1010 
1000 RETURN 
1010 RETURN 
1020 CLS:PRINT"ASK THE WIZARD TO 

DONATE MONEY": INPUT "HOW MUCH MO 
NEY ARE YOU GOING TO ASK HIM FOR 
";AD:WR=AD+RND(200) : IF WF=XX THE 
N WR=WR-RND(50) 

1030 IF WV=1 THEN WR=200 ELSE WV 
= 1 

1040 IF WR<100 THENPRINT"THE WIZ 
ARD SMILES AND GRANTS YOU"AD"GOL 
D PIECES. ":GP (XX) =GP (XX) +AD: FOR 
PP=1 TO 9 20: NEXT PP:GOTO 970 
1050 IF WR<17 5 THEN PRINT "THE WI 
ZARD TELLS YOU TO GO STICK 
YOUR HEAD IN A PIG.": FOR PP=1 TO 

920:NEXT PP:GOTO 970 
1060 PRINT "THE WIZARD GROWS ANGR 

Y AT YOUR UNMITIGATED OBNOXIOUS 
NESS." 

1070 FOR FE=1 TO 144: IF BS(FE)= 

XX OR BS(FE)=(XX+4) THEN PRINT"T 

HE WIZARD DESTROYS BUSINESS " 

;FE:PM=1:BT(FE)=1: GOSUB 2050:NEX 

T FE 

1080 PRINT"YOU ARE THROWN FROM H 

IS HOUSE.": FOR PP=1 TO 9 20: NEXT 

PP:GOTO 9 70 

1090 CLS:PRINT"STEAL": PRINT" 1. F 

ROM A GUILD": PRINT" 2. FROM A BUS 

INESS":PRINT"3. FROM THE WIZARD" 

1100 I$=INKEY$:IF 1$="" OR I$<"1 

" OR I$>"3" THEN 1100 

1110 I=VAL(I$):ON I GOTO 1120,12 

00,1270 

1120 CLStINPUT"WHICH GUILD DO YO 

U WANT TO STEALFROM" ;GS: INPUT "H 

OW MANY MEN DO YOU WISH TO S 

END";SM:IF SM>TB(XX) OR SM<1 THE 

N PRINT"ILLUSIONARY MEN TAKE ONL 

Y ILLU- SIONARY GOLD": FOR PP=1 T 
920: NEXT PP:GOTO 970 ELSE TB(X 
X)=TB(XX) -SM 

1130 IF TI (XX) =-10000 THEN TI (XX 

)=IC(XX) 

1140 PD=RND(100) :IF PD+(SM*2)-(G 

G(GS)+60)>0 THEN 1150 ELSE 1170 

1150 PD=RND(250) : IF PD>GP(GS) TH 

EN PD=GP(GS) 

1160 PRINT"YOUR THIEVES SUCCEEDE 

D IN TAKING" PD" GOLD PIECES 

.":GP(XX)=GP(XX)+PD:FOR PP=1 TO 

920: NEXT PP:GOTO 970 

1170 PD=RND(100) :IF PD<51 THEN 1 

180 ELSE 1190 

1180 PRINT"YOUR THIEVES WERE CAU 



GHT. . .AND EXECUTED" :AF (XX) =AF(X 
X)-SM:FOR PP=1 TO 920:NEXT PP:GO 
TO 970 

1190 PRINT "YOUR THIEVES WERE DIS 
COVERED. . . BUT THEY ESCAPED. " : FO 
R PP=1 TO 920: NEXT PP:GOTO 970 
1200 CLS: INPUT "WHICH BUSINESS DO 
YOU WISH TO STEAL FROM (0 FOR 
LIST)";AT:IF AT=0 THEN GOSUB 19 
00: GOTO 1200 

1210 INPUT "HOW MANY MEN ARE YOU 
SENDING" ;SM: IF SM>TB(XX) OR SM<1 
THEN PRINT"YOUR MATH SKILLS WER 
E PROBABLY WHAT CAUSED YOUR POV 
ERTY IN THE FIRST PLACE": FOR PP= 
1 TO 920: NEXT PP:GOTO 970 
1220 TB(XX)=TB(XX)-SM:PD=RND(100 
):IF (PD+SM*2) - (BG(AT) +40) >0 THE 
N 1230 ELSE 1250 

12 30 PD=RND(100) : PRINT" YOUR THIE 
VES STRUCK SWIFTLY AND STOLE "PD" 
GOLD PIECES" : GP (XX) =GP (XX) +PD : FO 
R PP=1 TO 9 20: NEXT PP:GOTO 970 
1240 PD=RND(100): IF PD>36 THEN 
1260 ELSE 1250 

12 50 PRINT "THE CITY GUARD JUST L 
OVED KILLING YOUR THIEVES 
FOR 'RESISTING ARREST' .": 

AF(XX)=AF(XX) -SM:FOR PP=1 TO 920 
:NEXT PP:GOTO 970 

12 60 PRINT "YOUR THIEVES MESSED U 
P, BUT WERENOT CAPTURED" : FOR PP= 
1 TO 920:NEXT PP:GOTO 970 

1270 CLS:INPUT"HOW MANY BRAVE SO 
ULS ARE GOING TO ROB THE WIZARD 
";SM 

1280 IF TB(XX)<SM OR SM<1 THEN P 
RINT"THE WIZARD DOESN'T BELIEVE 
IN NON-MAGICAL ILLUSIONS" : FOR 
PP=1 TO 9 20: NEXT PP:GOTO 970 
1290 TB(XX)=TB(XX)-SM:PD=RND(100 
):IF PD<50 THEN WQ-1 ELSE WQ=10 
1300 PD=RND(100) :IF (PD-SM)<(WQ+ 
1) THEN 1310 ELSE 1320 
1310 PD=RND ( 10000) : PRINT "YOUR ME 
N ARE SURE TO REACH LEGENDA 
RY STATUS. YOU GOT LUCKY AND STO 
LE"PD"GOLD PIECES FROM A CARELES 
S WIZARD.":GP(XX)=GP(XX)+PD:FOR 
PP=1 TO 920: NEXT PP:GOTO 970 
1320 IF WQ<2 THEN 1330 ELSE 1340 
1330 PRINT"THE WIZARD WAS HOME. 
ALL YOUR MEN MET HORRIBLE DEAT 
HS BUT THE PROPERTY DAMAGE WAS M 
INIMAL.":AF(XX)=AF(XX)-SM:FOR PP 
=1 TO 9 20: NEXT PP:GOTO 970 

13 40 PRINT "THE WIZARD'S DEADLY M 
AGIC TRAPS DESTROYED YOUR HAPLES 
S THIEVES . " : AF (XX) =AF (XX) -SM: FOR 

PP=1 TO 920:NEXT PP : GOTO 970 
13 50 CLS: PRI NT "ARMED CONFLICT" :P 
RINT"1. RECRUIT LOCALS" : PRINT" 2 . 
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<« GIMMESOFT »> 

A new generation of Color Computer products 



[MasterCard, 



NEW»> 



GRAPHICS-25 



Hi NEW 



(512k CoCo III only) 

UtiJlie the FULL 512k memory: range of your CoCo III from BASIC for graphics! Create up to 25 ONBOARD HIRES 
SCREENS! Six new BASIC commands allow instant display switching while secretly drawing olher screens. Save and load 
screens to and from disk. Copy: one screen to another. Fast Graphics action. Smooth animation, and 100% Machine 
Language code. Requires DECB 1,0, DECS 1.1, or FKEYS III. Complete with documentation. -..Disk $24.95 



MULTI-LABEL III 

(See July '87 review) Disk $16.95 

FKEYS III 

(See April '87 review) Disk $19.95 



<coco in omy> Custom Palette Designer 

(See Aug '87 review} Disk $14.95 

<coco i/ii/m> SIXDRIVE 

Disk $16.95 



CoCo Max III 

(CoCo III only) 

More resolution, power, color, speed, tools, & type styles!!! 
Built in Animation! / Amazing Color Sequencing!!! Comes 
with HI-RES INTERFACE, MINILOAD/BAS, DEMO 
DISK, COCO SHOW PGM. Complete package $79.95 



AUTO DIM 



(CoCo III only) 

This hardware device protects your RGB or composite 
monitor, or your TV from IMAGE BURN after a few 
minutes of inactivity from your keyboard. Illustrated 

instructions and easy to install. Just $29.95 

(See January '88 review) 



Now 2 styles 



MPI-CoCo Locking Plate 



Fits older MPI 



Protects your CoCo III and Multi Pak Interface from destroying each other! Installs in seconds. MPI 26-3124 or 26-3024 
& CoCo III 26-3334 only. Please specify MPI number 26-3024 or 26-3124 when ordering! Only $9.95 



NEW IMPROVED! 



MAXSOUND 



NEW LOW PRICE! 



(1 28k or 51 2k CoCo 111 : on|y) . .. ,,.; 

Turn your CoCo 111 into a REAL digital audio: sampler witu HIGH quality audio reproduction. .E^ilyadaV exotic effects, 
stuttering, speed shifting, sequencing; and reveirse audio to .BASIC: or ML programs: or GRAPHICS! Imagine recording any 
Voice, Music, or Sound effect and being able to use these DIGITAL recordings in your own programs! 3 disk set includes: 
INTERFACT/BIN - ML driver for sound effects. G&M/BAS - Adds sound effects to/ Graphics, SHOWTIME and DEMO 
disks. SCOPE/HAS - Turns CRT: into a Digital :C^ are: 

Haunted house sound effects, Telephone answering machine, or Talking door bell; GALL FOR DEMO $59.95 

■ - """ '"■'•'■'"• - ,; ""■ '■■ " " ■" 

NEW ►►► V-Term Terminal Emulator m NEW 

(128k or 512k CoCo III only) 
V-Term is one of the most advanced terminal programs for the CoCo HI everlll 

FEATURES: VT-100, VT-52, and standard CRT emulations. Full use of 51 2K, 80X28 text or graphics characters, 
Windows & Multi-tasking (Disk Basic!), RAMDISK like buffer, Xmodem, Xon/Xoff, Monochrome monitor support, Capture 
buffer, Snapshot, Conference mode, and much much more! Complete with documentation. Disk $39.95 

Kung-Fu Dude 

(CoCo l/ll/lll) 

This is the long-awaited response to the huge demand for 
a Kung-Fu program for the CoCo, Destroy opponents and 
evade obstacles as you grow even closer to your ultimate 
objective! (See Feb. '88 review) Disk.. $24.95 

White Fire of Eternity 

(CoCo l/ll/lll) 
Enter the age of monsters, magic, and adventure. Here 
you will search for the legendary power of White Fire 
throughout the Forbidden Wood and dark caverns. 
(See Dec. '86 review) Disk $19.95 



PYRAMIX 



(CoCo III only) 

This 100% machine language arcade game was written 
exclusively to take advantage of your CoCo 3. The colors 
are brilliant, the graphics are sharp, and the action is hot! 
(See Dec. '87 review) Disk $19.95 



CHAMPION 



(CoCo l/ll/lll) 
Become a superhero in your fight to rid the world of the 
evil forces of Mr. Bigg in this action adventure. The 
combat is hot and heavy and requires a fast joystick! 
(See May '87 review) Disk..... $19.95 



NEW ►►► p <3wes* of the Star Lord <<< NEW 

A new animated graphics adventure for: thetCoGb III from the author of the Hall of the King Trilogy and Kung-Fu 

Dude! Enjoy the mixture of science and fantasy as you quest for: the Phoenix Crossbow, the only thing that can save you 

in the post-holocaust world. 4 Disk sides of adventure! Outstanding 320x200 graphics! CoCo III 128k Disk „.. $34.95 



Technical assistance: 7pm to 9pm 
Orders: 9am to 9pm Eastern time 
On-line orders and up to date 
information: Delphi's CoCo Sig 



GIMMESOFT 
P.O. Box 421 
Perry Hall, MD 21128 
301-256-7558 or 301-256-2953 



Add $3.00 for shipping and handling 

Add $2.00 for COD (USA only) 

MD residents add 5% sales tax 

VISA/MC/Check/Money Order/COD 



HIRE MERCENARIES" : PRINT" 3. TRAI 
N AND EQUIP RECRUITS": PRINT" 4. A 
MBUSH A GUILD": PRINT" 5. AMBUSH A 

BUSINESS": PRINT" 6. RETURN TO MA 
IN MENU" 

1360 I$=INKEY$:IF 1$ = "" OR I$<"1 
" OR I$>"6" THEN 1360 
1370 I=VAL(I$):ON I GOSUB 1400,1 
420,1450,1470,1500,1390 
13 80 RETURN 

13 90 RETURN 

1400 IF TB(XX)<2 THEN PRINT"YOU 
DON'T HAVE ENOUGH MEN TO RECR 
UIT.":FOR PP=1 TO 920: NEXT PP:GO 
TO 1350 ELSE TB(XX) =TB(XX) -2 : INP 
UT"HOW MUCH MONEY ARE YOU GOING 
TO SPEND" ;SM 

1410 IF SM>GP(XX) THEN PRINT"PRO 
MISES . . . BUT WHERE ' S THE MON 
EY":FOR PP=1 TO 9 20: NEXT PP:GOTO 

1350 ELSE GP(XX)=GP(XX) -SM:PD=R 
ND(50) :SR=INT(SM/PD) :RC(XX)=RC(X 
X)+SR: PRINT" YOU BEAT THE BUSHES 
AND FOUND" SR"NEW RECRUITS" : FOR P 
P=l TO 920: NEXT PP:GOTO 1 
1420 IF TB(XX)<1 THEN PRINT"THEY 

WON'T JUST COME TO YOU, YOU MUS 
T GO TO THEM.": FOR PP=1 TO 920 :N 
EXT PP:GOTO 1350 ELSE TB(XX)=TB( 
XX) -1 

14 30 INPUT "HOW MUCH TO YOU WISH 
TO SPEND ON MERCS", -SM: IF SM>GP 
(XX) THEN PRINT "MERCENARIES ARE 
PAID SOLDIERS.": FOR PP=1 TO 920: 
NEXT PP:GOTO 13 50 ELSE GP(XX)=GP 
(XX) -SM:SR=INT(SM/100) : PRINT "YOU 

HIRED"SR"MERCS . " : AF (XX) =AF (XX) + 
SR:FOR PP=1 TO 9 20: NEXT P 
1440 GOTO 1350 

1450 CLS:PRINT"YOU HAVE"RC (XX) "R 
ECRUITS.":INPUT"HOW MUCH DO YOU 
WANT TO SPEND ONTRAINING" ;SM: IF 
GP(XX)<SM THEN PRINT "TEACHERS ' S 
ALARIES ARE A BIT HIGHER THAN 

WHAT YOU HAVE, BUT YOUR OFFER 
WAS NICE.": FOR PP=1 TO 920: NEXT 
PP:GOTO 1350 

1460 GP(XX)=GP(XX)-SM:PD=RND(150 
) :SR=INT(SM/PD) :IF SR>RC(XX) THE 
N SR=RC(XX) 

1465 PRINT"YOU TRAINED AND EQUIP 
ED"SR M RECRUITS. ":RC (XX) =RC( 
XX) -SR: AF (XX) =AF (XX) +SR: FOR PP=1 

TO 9 20: NEXT PP:GOTO 13 50 
1470 CLS : INPUT"WHICH GUILD DO YO 
U WISH TO AMBUSH", -AG: INPUT" 
HOW MANY MEN WILL YOU SEND";SM:I 
F SM>TB(XX) THEN PRINT"DON'T SEN 
D MORE MEN THAN YOU HAVE": FOR 

PP=1 TO 9 20: NEXT PP:GOTO 13 50 
1475 TB(XX)=TB(XX) -SM 
1480 OF=GG (AG) : GOSUB 2155:IF LO- 



XX THEN PRINT "YOU HAVE LOST YOUR 

BID TO DESTROY GUILD"AG:F 
OR PP=1 TO 920: NEXT PP:GOTO 13 50 
1490 PRINT"YOU HAVE WON!!! CANDI 
DATE"AG" IS DEAD":GS(AG)=l:FOR P 
P=l TO 920:NEXT PP:GOTO 1350 
1500 CLS: INPUT "WHICH BUSINESS WI 
LL YOU AMBUSH" ;AG: INPUT "HOW MANY 

MEN WILL YOU SEND";SM:IF SM>TB ( 
XX) THEN PRINT "YOU HAVE TOO FEW 
TROOPS LEFT.": FOR PP=1 TO 9 20:NE 
XT PP:GOTO 13 50 
1505 TB<XX)=TB(XX)-SM 
1510 OF=BG (AG) : GOSUB 2155: IF LO= 
XX THENPRINT"BUSINESS"AG"IS STIL 
L OPEN.": FOR PP=1 TO 9 20: NEXT PP 
;GOTO 13 50 
1520 PRINT"YOU HAVE SUCCEEDED IN 

CLOSING BUSINESS "AG". " : BT (AG) 
=1:PM=1:AT=AG: GOSUB 2050: FOR PP= 
1 TO 920: NEXT PP:GOTO 13 50 
1530 IF DB+1=NP THEN FOR X=l TO 
4: IF GS(X)<>1 THEN CLS : SOUND 100 
,1:PRINT" PLAYER "X" REPRESENTING 

THE GUILD "GN$(X) M IS THE W 
INNER" :GOTO 1640 

1540 CLS: PRINT "ELECTION DAY HAS 
COME... WHO WILLBE THE NEXT KING" 
:FOR X=l TO NP:TV(X) =( (IC (X) *2 ) + 
(GP(X)*5)+(AL(X))+RC(X)+AF(X)*3) 
1550 KK(X)=TV(X) :NEXT X:PRINT"TH 
E KING IS THE CANDIDATE FROM" 
1560 Y=0 
1570 Y=Y+1 

1580 IF Y>NP THEN 1630 
1590 IF TV(X)<0 THEN 1630 
1600 FOR 2=1 TO NP 
1610 IF KK(Y)>KK(X) THEN X=Y 
1620 NEXT Z 
1625 GOTO 1570 

1630 PRINTGN$(X) ; " (GUILD"X M ) " 
1640 I$=INKEY$:IF 1$="" THEN 164 

9> 

1650 INPUT" DO YOU WISH TO PLAY A 

GAIN";X$:IF LEFT$(X$,1)="Y" THEN 

RUN ELSE POKE 11 3,0: EXEC 4099 9 
1660 CLS:PRINT"STATUS REPORT": PR 
INT"GOLD PIECES"GP(XX) :PRINT"INC 
OME"IC (XX) : PRINT" INCOME THIS TUR 
N"TI (XX) : PRINT" LAST TURN'S INCOM 
E"LI(XX) :PRINT"RECRUITS"RC(XX) :P 
RINT" TROOPS" ;AF(XX) : PRINT "UNCOMI 
TTED TROOPS"TB(XX) 
1670 I$=INKEY$:IF 1$="" THEN 167 

1680 CLS:PRINT"ALLIES"AL(XX) : PRI 
NT"ALLY NUMBERS :";: FOR FF=1 TO 1 
44: IF BS(FF)=XX AND BT(FF)<>1 TH 
EN PRINTFF;:NEXT FF ELSE NEXT FF 
1690 PRINT: PRINT 

1700 PRINT " INVESTMENTS: "; : FOR FF 
=1 TO 144: IF BS(FF)=XX+4 AND BT ( 
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Orders up to $50 subtract 15% OFF 
Orders over $50 subtract 20% OFF 



offer expires 4/30/88 



Add shipping; S3surlacem the US 
oi SSfor air/Canada. 

This coupon musl be presented or 
mentioned with order 10 receive 
discounts. 



Yes! Send me your FREE catalog! 

VISA MasterCard 

Card * 



.State. 



Exp 



-Zip. 



Signature. 




Item 



Formal 



.MjW7BRWMflE- (619)43M512 

Box 668 ■ Encinitas, CA ■ 92024 



6% Calif. Sales Tax 

COD Add $5 

Shipping* 

TOTAL 



Price 



-PROGRAMMING TOOLS- 



CoCd 3 Ramdisk & Diagnostics 
512K memory diagnostics, double ramdisk. & mastercopy 
utility. 
CoCo 3 Disk $19,95 

Color Basic Compiler 
Compiles Basic code into machine language. List of 
commands available. 
Req 32K RSDOS $29.95 

Macro Conditional Assembler 

Supports 6809 mneumonics & directives, macros, 

conditional assembly, repeat sequences, source library 

iiles 

32K RSDOS S34.95 

64K OS-9 $39.95 



Sourcerer 

Disassembler & source generator 
32K RSDOS 
54K QS-9 



$29.95 
$29.95 



-BUSINESS APPLICATIONS- 

(att require 64 K & dual drives) 



General Ledger 
Check Ledger 
Inventory Control 
Ace's Payable 
fleets Receivable 
Payroll 



$99.00 
$99.00 
$99.00 
$99,00 
$99.00 
$125.00 



-MODEM SOFTWARE- 



Color Connection 
Comprehensive modem software supports Protocol B. 

XMODEM protocol, & XQWX0FF; all baud rates, expand- 
able buffer, macros, CoCo I. II. & III included. 
Req 32K RSDOS $49.95 

0S-9 Connection 
Comprehensive modem software supports Protocol B, 
XMODEM protocol, & XON/XQFF; all baud rates, expand- 
able buffer, macros. Level I & II included. 
Req RS232 pak. OS-9 $49.95 



-PERSONAL PRODUCTIVITY- 



CaCo Cookbook 

Recipe file stores title, ingredients & instructions in free- 
format data base. 
Req 32K RSDOS $29.95 



C.E.O. 

Electronic desktop organizer 
calculator, clock with alarm, 
drawer tor memos. 
Req 64K RSDOS 



- appointment calendar. 
phone directory. & file- 

S34.95 



Personal Finance System 

Checkbook organizer with personal chart of accounts, 
budgets. & special investment & loan calculation module. 
Req 32K, RSDOS, printer $29.95 

Merge 'n Mail 

Name S address data base with reports, label printing. 
S merge feature for word processor letters. For CoCo I 
or II only. 
Req 54K RSDOS S29.95 



-OS-9 ONLY- 



Textools 

Utilities for text file manipulation. 

Req OS-9 $29.95 

OS-9 Combo Utilities 

Utilities for every advanced user! 

Req OS-9 $49.95 

OS-9 Basic 

Written for programmers by programmers. 

Req OS-9 S39.95 

Data Master 
Full featured daia base system 
Req OS-9 Level 2 SE4.95 

Screen Star 
Screen editor Implementation ol WordStar edit set. 
Req OS-9 $49.95 

w/Formatler $74.95 

OS-9 Text Formatter 
Advanced formatter interlaces with any ASCII ednor. 
Req OS-9 $34.95 

w/Screen Star S74.95 



-GAMES- 



Relurn ol Junior's Revenge 
Arcade of Donkey King Junior. 
Req CoCo 3 Disk, joystick S24.95 

Nuke the Love Boat 
Slrategy simulation/adventure. 
Req CoCo 3 Disk, mouse or joystick S24.95 

Magic of Zanth 
Dragons, demons, graphics & adventure. 
Req CoCo 3 Disk $24.95 

Iron Cross 

World War II simulation. 

Req 64K, Ext Basic, RSDOS S24.95 

Pac Attack 
Popular arcade action. 

16K cass $16.95 

32K RSDOS $19.95 

Blc: Head 

Q-bert jumps over cubic surfaces. 

16K cass S16.95 

32K RSDOS S19.95 

Mr. Dig 
Dig-Dug arcade fun. 

32K Cass $15.95 

32K RSDOS S19.95 

Treasure of the Aztecs 

Unique graphic adventure in Mexico City. 

64Kcass $19.95 

64K RSDOS S24.95 

Escape: 2012 

Graphics space adventure with over 35 objects & 137 

rooms in 3 dimension maze of 4 levels with 2 arcade 

sequences. 

64Kcass $19.95 

64 K RSDOS $24.95 



Sam Sleuth 




Work as a Private Eye to solve 3 cases ■ 


- different every 


time! Reg joystick or mouse 




64K cass 


S19.95 


64K RSDOS 


$24.95 



Pro Golf 

Challenging simulation includes practice on putting green 

& driving range. 36 holes with life-like conditions to 

master. 

Req 32K, RSDOS, Ext Basic $24.95 

Colorbowl Football 
Each team has 6 players & you control the quarterback 
or roving safety using joysticks. Practice alone or play 
against /our opponent 

32K cass $19.95 

32K RSDOS S24.95 

Bio Detector 
Bio feedback & Lie detector game. All hardware & solt- 
ware included. 
Reg 16K S24.95 



PF)01 THEN PRINTFF; :NEXT FF ELS 

E NEXT FF 

171,0 PRINT: PRINT 

172,0 PRINT"HIT 1 FOR MENU OR 2 T 

END TURN." 

1730 I$=INKEY$:IF 1$ = "" OR IS<"1 

" OR I$>"2" THEN 17 30 

1740 I=VAL(I$) :ON I GOTO 70,160 

1750 IF DF(XX)=1 THEN 160 ELSE I 

F ZZ<2 THEN 1835 

17 60 FOR PP=1 TO NP:Z(PP)=WB(PP) 

:X=0:NEXT PP 

17 70 X=X+1 

1780 IF X>4 THEN 1800 
1790 IF Z(X)<0 THEN 1770 
1800 FOR Y=l TO 4 
1810 IF Z(Y)>Z(X) THEN X=Y 

18 20 NEXT Y 
1830 WF=X 

183 5 FOR RR=1 TO 144: IF BS(RR)=X 
X OR BS(RR)=XX+4 THEN BG(RR)=0:N 
EXT RR ELSE NEXT RR 
1840 CLS : PRINTS 2 68 , "PLAYER"XX: PR 
INT@ 30 1,"WEEK"ZZ: SOUND 100,1 
1850 I$=INXE¥$:IF 1$="" THEN 185 



18 60 PRINT" WELCOME GUILDMASTER 

F THE GUILD"GN$(XX) :IF WF=XX THE 

N PRINT "THE WIZARD SENDS A NOTE 

OF ALLIANCE." 

1870 FOR PP=1 TO 920: NEXT PP 

187 5 INPUT "HOW MUCH GOLD DO YOU 

WISH TO SPEND ON THE WIZARD"; 

WB(XX) :GP(XX)=GP(XX)~WB(XX) 

1880 GP{XX)=GP(XX)+TI(XX) :TI(XX) 

=IC(XX) :TB(XX)=AF(XX) :LI(XX)=QI( 

XX) 

1883 RETURN 

1885 TI(XX)=IC(XX) :TB(XX)=AF(XX) 

18 90 RETURN 

1900 CLS : PRINT"MONEYLENDERS " : FOR 

Y=l TO 6:PRINTY; :PRINTML$(Y) :NE 
XT Y:GOTO 2010 

1910 CLS:PRINT"INNS":FOR Y=l TO 
20 

1920 IF Y=15 THEN I$=INKEY$:IF I 
$="» THEN 1920 
1930 PRINTY+6;: PRINT IN$(Y):NEXT 

Y:GOTO 2010 
1940 CLS:PRINT"CRAFTSMEN":FOR Y= 

1 TO 50 

1950 IF Y=15 OR Y=30 OR Y=45 THE 

N I$=INKEY$:IF 1$="" THEN 1950 

1960 PRINTY+26;:PRINT CM$(Y):NEX 

T Y:GOTO 2010 

1970 CLS SPRINT" FARMERS": FOR Y=l 

TO 60 

1980 IF Y=15 OR Y=30 OR Y=45 OR 

Y=55 THEN I$=INKEY$:IF 1$="" THE 

N 1980 

1990 PRINTY+76; : PRINT FM$(Y):NEX 

T Y:GOTO 2010 



2000 CLS:PRINT"LIVESTOCK TRADERS 
":FOR Y=l TO 8 : PRINTY+136 ; : PRINT 

LT$(Y) :NEXT Y 
2010 PRINT" (R) ETURN OR (C)ONTINU 
E 

2020 I$=INKEY$:IF I$="R" THEN RE 
TURN ELSE IF I$="C" THEN 2030 EL 
SE 2020 

2030 CLS: PRINT" 1. MONEYLENDERS": 
PRINT" 2. INNS": PRINT" 3, CRAFTSME 
N":PRINT"4. FARMERS": PRINT" 5. LI 
VESTOCK TRADERS" 

2040 INPUT WG:IF WG<1 OR WG>5 TH 
EN 2030 ELSE ON WG GOTO 1900,191 
0,1940,1970,2000 

2050 IF BS(AT)<1 THEN 2060 ELSE 
IF BS(AT)<5 THEN 2070 ELSE 2090 
2060 RETURN 

2070 QD(AT)=BS(AT) : IF AT<7 THEN 
RN=200 ELSE IF AT<2 7 THEN RN=2 60 

ELSE IF AT<7 7 THEN RN=2 8 ELSE 1 
F AT<13 7 THEN RN=20 ELSE RN=210 
2080 GOTO 2100 

2090 QD (AT) =BS (AT) : BS (AT) =BS (AT) 
-4: IF AT<7 THEN RN=4 50 ELSE IF A 
T<27 THEN RN=600 ELSE IF AT<7 7 T 
HEN RN=60 ELSE IF AT<137 THEN RN 
=40 ELSE RN=420 

2100 IF PM=1 THEN 2110 ELSE 2120 
2110 IC(BS(AT) )=IC(BS(AT) ) -ZX(AT 
) :AL(BS(AT) )=AL(BS(AT) )-l:BS(AT) 
=QD(AT) : RETURN 

2120 ZX(AT)=ZX(AT)+RND(RN-ZX(AT) 
) :IC(BS(AT) )=IC(BS{AT) )+ZX(AT) :B 
S (AT) =QD (AT) : QI ( BS (AT) ) =IC (BS (AT 
) ) I RETURN 

2130 CLS: PR I NT "DO YOU REALLY, REA 
LLY WANT TO QUIT THIS AWESOME 
LLY FUN GAME? (ARE YOU POSITIVE 

???) " 
2140 INPUT W$:IF W$="Y" OR W$ 
="YES" THEN END 
2150 GOTO 70 
2155 HA=SM:HB=OF 

2160 OA=(OF*2)+20:AA=SM:PRINTAA" 
ATTACKERS" ; " "OF "DEFENDERS" 
2170 XF=RND(10) :YF=RND(15) : IF (X 
F+OA)>(YF+AA) THEN SM=SM-INT ( ( (X 
F+OA)-(YF+AA) )/2) ELSE OF=OF-INT 
( ( (YF+AA) - (OA+XF) )/2) 
2180 IF OF<0 THEN OF=0;LO=AG ELS 
E IF SM<0 THEN SM=0 : LO=XX 
2190 PRINT"ATTACKING FORCES: "SM: 
PRINT"DEFENDING FORCES: "OF 
2 200 IF OF=0 OR SM=0 THEN HA=ABS 
(SM-HA) :AF(XX)=AF(XX)-HA:HB=ABS( 
OF-HB) :AF( AT) =AF( AT) -HB: RETURN E 
LSE 2160 
2210 CLS:PRINT"BAD GONZO WHOPPER 

ERROR. IT'S ALL YOUR FAULT!": 
END 



/Rv 
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F e at u r e 



32KECB „".!!■• 



Help for the amateur BASIC programmer 




Limedleirs 




tilities 1 is a simple program to aid amateur 
programmers in performing certain functions from 
within their BASIC programs. It can also be used 
as a utility program to perform certain functions, such as 
Set Maximum Memory or Change Printer Line Width, etc. 
This program is based strictly on PEEK and PDKE 
commands. Upon execution, some of these commands will 
erase all of the memory contents. For this reason 1 highly 
recommend making a backup copy before running it. For 
example, Set Maximum Memory command allows you to 
access those addresses of memory set aside by the CoCo for 
graphics and, upon execution, will erase all the memory 
contents. Cold Start (re-boot) also erases the memory. 

There are two uses for this program. First, it can be used 
as an aid for performing a certain function in your BASIC 
program. Let's say you want your program to cold start 
after execution and don't know what command to use. At 
the main menu, type the number for Cold Start and you 



Raymond Lueders lives in Hanover Park, Illinois, and is 
employed as purchasing manager with 
Heinz Plastic Mold Company. 
Raymond is 26 years old 
and is an active Del- 
phi member. His 
username is 

MOONSHINE. 



will see the command to use preceded with Line 100, which 
I used as an example. Copy down the command and place 
it in your program as it applies. 

You can use Utilities t as a utility program to perform 
acertain function such as Set Printer Line Width (depending 
on your printer type). From the main menu, enter the 
number for Set Printer Line Width. You are prompted to 
execute it. After execution, you will have set your printer's 
line width to that specified. 

Take special care when typing in this program because 
typing in the wrong PEEK or PDKE command may give 
unpredictable results. 1 also have included remarks and reset 
commands to complete the function. After executing one 
PEEK or PQKE command, others executed may not function 
properly, depending on which ones were used prior to 
execution. 

After running Utilities I a couple of times, you will notice 
that I used many of the commands myself. One example 
is Printer Not Ready, which is very useful in programs that 
use the printer (a simple error-trapping routine, you might 
say). To exit Utilities 1, type 14. 

(Questions about this program may be 
directed to the author at 1341 Sea 
Biscuit Lane, Hanover Park, 
IL 60103. Please enclose 
an SA S E when 
writing for a 
reply.) □ 
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For Tandy 1000, SX, TX 



TANDY ADD-ONS 




1000, 


SX, TX 


Hard Drive 


Kits -« 


rfHW*/ 


10 Meg 
20 Meg 
30 Meg 
40 Meg 


$279.95 
$339.95 
$379.95 
$499.95 



1000, SX, TX 



300/1200 Modem 

300/1200/2400 
Modem 

Mini IO 

2 Meg Board 



Cards 

$119.95 



$149.95 

$79.95 

$169.95 



Tandy 3000 & 3000HL 


Hard Drive Kits 


Includes Drive, 


Controller & Cable 


20 Meg 


$399.95 


30 Meg 


$599.95 


40 Meg 


$699.95 


80 Meg 


$999.95 



1000, SX, TX 




g$ TANDY 

1000, SX,TX 

49 Meg Hard Card 

32 MS (speed) 

$599.95 



TANDY 1000 

1000, SX, TX, 3000, 4000 





2nd Floppy 


360K 


TEAC $119.95 


720K 


Mitsubishi $99,95 


3V2" 


Mitsubishi $1 1 9 95 




#» 



Tandy Model 3, 4, 4P 

Hard Drive Systems 

Externat 

Complete - ready to run 

10 Meg $499.95 

20 Meg $699.95 



TRUE DATA PRODUCTS 

115 So Main Street 
Uxbridge, MA 01569 

Tel. 617-278-6555 
1-800-635-0300 

Hours: 9 a.m. -6 p.m., Sat. 10 a.m. -4 p.m. 



1000, SX, TX 




Rodime 




NEW 
Cardinal 
Modems 

2400 Baud 300/ 1 200/2400 
(Hayes Compatible) 

Complete with software manuals 

only $149.95 



1000, 1000A 



Memory Cards 

Zucker Memory 

• DMA&512K CALL 

Zucker Multifunction 



• Serial 

• Real Time Clock 

• 512KDMA 

• Software 



CALL 





Tandy 1000, 
1000SX, 
3000 & 3000HL 



Tape Backup 



20, 30, 40 Meg 
Tape Backup 

60 Meg Tape Backup 
Archive 



$399.95 



$659.95 



Software Included 

• Pc-Write word processor 

• Pc-Calc Spreadsheet 

• Pc-File Database 

• Print Spooler 

• Ram Disk 

• Runs all popular software 




IBM XT 
COMPATIBLE 



Complete 
system 



only 



699 



95 



Hardware Included 

• 4.77 mhz and 8mhz Turbo 

• 360k Floppy Disk Drive 

• Monochrome or Color Card 

• At style Case w/pwr light & key 

• Game, Printer and Serial Port 

• Real Time Clock 

• 150 watt power supply 
•640k memory 

• At keyboard optional expanded 

• Monochrome Monitor 
•Optional Hard Disk Drive 



PRINTER CABLES AND 
INTERFACES AVAILABLE 

Call for current pricing 




NX10(New120CPS NLQBOcol.) I SS" 5 
NX15(New120CPSNLQ132col.) 349 95 

PANASONIC PRINTER 

1080! (New 120CPS NLQ 80 col.) 



17995 



Complete Packages 



10801 



229 95 



NX10 



2599 5 



includes: includes: 

• Panasonic 10801 Printer* Star NX10 Printer 

• Interface • Interface 

• Screen Dump Program • Screen Dump Program 



TRUE DATA PRODUCTS 



tV , 




Serial to Parallel Interface 
for Color Computer I, II, III 

• 300-19,200 BAUD rates only 

• External to printer — No AC plugs _ m Q _ 

• Built in modem/printer switch — Tft 
No need for Y-cables or plugging/ 
unplugging cables 



Power supply + 5.00 



64K Upgrades 
Video Driver 



1995 
2995 



Enables your C0C0 to operate with a video monitor 
instead of a television! 



^m 


■■■f 


^ - 


1 


I 



9 South Main Street 
Uxbridge, MA 01569 
617-278-6S55 



Screen Dump Program 19 9S 

The best screen dump program for the Epson & 
Star printers ever!! Have the option of standard 
images reverse w/ regular or double sized pictures. 

Dealer Inquiries invited 
617-278-6555 

Can us today! 617-278-6555 
Order Toll Free 1-800-635-0300 







/ 






1 


^Y 


.169 2210 .. 


....93 




v 


210 . . . 






360 ... 


.108 2420 
..179 2670 .. 


31 

...43 






570 ... 




780 ... 


...95 2840 .. 


. . . 202 




1100 .. 


..144 3020 .. 


...112 




1270 .. 


...88 3200 . . 


....59 




1470 .. 


.201 3420 ,. 


. . . 235 




1640 .. 


.207 3560 .. 


...202 




1830 . . 


.115 3750 .. 


...155 




1990 .. 


.252 END 


.65 



The listing: UTILITY1 

20 ' * * 

30 '* UTILITIES 1 * 

4£j ' A * 

50 '* BY: RAYMOND LUEDERS * 
60 ' * HANOVER PK, IL * 
70 '* * 

80 ' * * 

90 i **************************** 

100 ■ 

110 ' 

120 ' 

130 ' 

140 ' 

150 ' 

160 GOTO230 

170 A=PEEK(116)*256+PEEK(117)-10 

0:X=INT (A/256) :Y=A-(X*256) : FORI= 

A TO A +72:READB:POKEI,B:NEXTI:P 

OKE362 ,12 6: POKE363 , X: POKE3 64 , Y : C 

LEAR200 , A : DATA50 , 100 , 52 , 20 , 189 , 1 

61,121,132,127,52,2,189,161,193, 

142,4,254,189,167,211,182,1,83,1 

29,191,38,37 

180 DATA53,22,150,255,129,8,38,7 

,90,39,31,48,31,32,15,129,32,37, 

22,129,123,36,18,19 3,249,3 6,14,1 

67,128,92,189,162,130,52,20,32,2 

01,53,22,151,2 55,57,198,1,3 2,2 51 

190 CLS: PRINT: PRINT" KEY REPEAT 

NOW ACTIVATED," 

200 PRINT" HOLD DOWN A KEY AND P 

RESS " 

210 PRINT" THE <CLEAR> KEY . " : PRI 

NT: 

220 END 

230 ' 

240 CLS0 

250 PRINT: PRINT" ARE YOU USING A 

COCO 3? (Y/N) "; : 
260 COCO$=INKEY$:IF COCO$="" THE 
N 2 60 
270 IF COCO$="Y" THEN 280 ELSE 2 



90 

2 80 PALETTE12,0:PALETTE13,48:ON 
BRK GOTO 280: GOTO 300 

290 IF COCO$="N" THEN 300 ELSE 2 

60 

300 GOTO3 900 

310 'DEFINITIONS FOR HI-RES CHR 

320 LA$="BM+1,0U4E2F2D2BL4R4D2BR 

3" 

3 30 LB$="BM+1,0U6R3F1D1G1BL3R3F1 
D1G1BL3R3BR4" 

340 LD$="BM+1,0BR3E1U4H1L3D6R3BR 

4" 

350 LE$="BM+1,0BR5BU6L5D3R3BL3D3 

R5BR3" 

360 LI$="BM+1,0BU6R4BL2D6BL2R4BR 

3" 

370 LL$="BM+1,0U6BD6R5BR3" 

380 LM$="BM+1,0U6R1F2D1U1E2R1D6B 

R3" 

3 90 LN$="BM+1,0U6F5BU5D6BR3 

400 LO$="BM+1,0BR3L2H1U4E1R2F1D4 

G1BR4" 

410 LR$="BM+1,0U6R3F1D1G1BL3R3F1 

D2BR3" 

420 LS$="BM+1,0BU1F1R2E1U1H1L2H1 

U1E1R2F1BD5BR3" 

430 LT$="BM+1,0BR6BU6L6BR3D6BR5" 

440 LU$="BM+1,0BU6D5F1R3E1U5BD6B 

R3" 

450 LY$="BM+1,0BU6D2F2E2U2BL2BD4 

D2BR5" 

4 60 NO$(1)="BM+1,0BU4E2D6BR3" 
470 NO$ (9 ) ="BM+1 ,0BU1F1R2E1U4H1L 
2G1D1F1R3BD3BR4" 

480 NO$(8)="BM+1,0BR3L2H1U1E1H1U 

1E1R2F1D1G1L2BR2F1D1G1BR4" 

490 NO$(6)="BM+1,0BR5BU5H1L2G1D4 

F1R2E1U1H1L3BD3BR6" 

500 MUS$="04 ;T10 ;V12 ;A;V9 ;A;V6 ;A 

;V3;A;V2;A;V1;A;" 

510 'DISPLAY TITLE PAGE 

520 PMODE4,l:PCLS: SCREEN 1,1 

530 PLAYMUS$ 

540 LINE{8,8)-(246,162) ,PSET,B 

550 LINE(10,10)-(244,160) ,PSET,B 

560 LINE (12 ,12} -(242,158) ,PSET,B 

570 LINE (14, 14} -(240, 156) ,PSET,B 

580 LINE(16,16)-(238,154) ,PSET,B 

590 LINE(18,18)-(236,152) ,PSET,B 

600 LINE(20,20)-(234,150) ,PSET,B 

610 LINE(22,22)-(232,148) ,PSET,B 

620 LINE(27,26)-(227,144) ,PSET,B 

630 FOR X=1TO500:NEXT 

640 DRAW"BM84,44;XLU$;XLT$;XLI$; 

XLL$;XLI$ ;XLT$ ;XLI$ ;XLE$;XLS$ ; " 
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65j3 DRAW"BM174,44;XNO$(l) ;" 

660 FORX=1TO500:NEXT 

67J3 DRAW"BM118 , 64 ; XLB$ ; XLY$ ; " 

68J3 FORX=1TO500:NEXT 

690 DRAW"BM67 , 104 ; XLR$ ; XLA$ ; XLY$ 

; XLM$ ; XLO$ ; XLN$ ; XLD$ ; " 

7j2j3 DRAWBM134 , 104 ; XLL$ ; XLU$ ; XLE 

$ ; XLD$ ;XLE$ ; XLR$ ; XLS$ ; " 

710 F0RX=1T0 500: NEXT 

720 DRAW"BM66,104;XLR$;XLA$;XLY$ 

;XLM$ ;XLO$ ;XLN$ ;XLD$ ; " 

730 FORX=1TO200:NEXT 

740 DRAWBM133 , 104 ;XLL$ ;XLU$ ;XLE 

$ J XLD$ ; XLE$ ; XLR$ ; XLS $ ; " 

750 FORX=1TO1000:NEXT 

760 DRAWBM68 , 104 ; XLR$ ; XLA$ J XLY$ 

; XLM$ ; XLO$ ; XLN$ ; XLD$ ; " 

770 FORX=1TO200:NEXT 

7 80 DRAW"BM135,104;XLL$;XLU$;XLE 

$ ? XLD$ ? XLE$ ; XLR$ ; XLS $ \ " 

790 FORX=1TO500 : NEXT 

800 DRAW"BM110,120;XNO$(1) ;XNO$( 

9) ;XN0$(8) ;XN0$(6) ;» 

810 FORX=1TO500: NEXTX 

820 Y=244:Z=160 

830 FORX=10TO85STEP2 

840 LTNE(X,X)-(Y,Z) ,PSET,B 

850 Y=Y-2:Z=Z-2 

860 NEXTX 

870 FORX=1TO100:NEXT 

880 Y=244:Z=160 

890 FORX=10TO85 

900 LINE(X,X)-(Y,Z) ,PSET,B 

910 Y=Y-1:Z=Z-1 

920 NEXTX 

930 PLAYMUS$ 

940 GOSUB13 30»MAIN MENU 

950 IF MAIN$="1"THENGOSUB1530 

960 IF MAIN$="2"THENGOSUB1650 

970 IF MAIN$="3"THENGOSUB1770 

980 IF MAIN$="4"THENGOSUB1870 

990 IF MAIN$="5"THENGOSUB2190 

1000 IF MAIN$="6"THENGOSUB2710 

1010 IF MAIN$="7"THENGOSUB2860 

1020 IF HAIN$="8"THENGOSUB3080 

1030 IF MAIN$="9"THENGOSUB3 210 

1040 IF MAIN$="10"THENGOSUB3 3 40 

1050 IF MAIN$="11"THENGOSUB3450 

1060 IF MAIN$="12"THENGOSUB3700 

1070 IF MAIN$="13"THENGOSUB1230 

1080 IF MAIN$="14"THENGOSUB1100 

1090 GOTO940 

1100 CLS: PRINT: PRINT" YOU MAY DI 

RECT QUESTIONS TO ME" 

1110 PRINT" PLEASE SEND A SASE T 

0:": PRINT"" 

1120 PRINT" RAYMOND LUEDERS 

1130 PRINT" 1341 SEA BISCUIT 

LN" 
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Availability 
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BACK ISSUES STILL AVAILABLE 

Have you explored the wealth of informa- 
tion in our past issues? From our very first, 
four-page issue to many with more than 300 
pages of material, it's all just for CoCo users 
— a great way to expand your library! 

A WORLD OF INFO AT A BARGAIN PRICE 

All back issues sell for the single issue 
cover price. In addition, there is a $3,50 
charge for the first issue, plus 50 cents for 
each additional issue for postage and han- 
dling if sent by United Parcel Service. There 
is a $5 charge for the first issue, plus a $1 
charge for each additional issue on orders 
sent by U.S. Mail. UPS will not deliver to a 
post office box or to another country. 

MOST ISSUES STILL AVAILABLE 

Issues July 1981 through June 1982 are 
available on white paper in a reprint form. All 
others are in regular magazine form. VISA, 
MasterCard and American Express ac- 
cepted. Kentucky residents please add 5 
percent state sales tax. In order to hold down 
costs, we do not bill, and no C.O.D. orders 
are accepted. 

Due to heavy demand, we suggest you 
order the back issues you want now while 
supplies last. 

To check availability and order, review and 
fill out the form on the next page and mail 
it with your payment to: 

THE RAINBOW 

The Falsoft Building 
P.O. Box 385 
Prospect, KY 40059 
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BACK ISSUE ORDER FORM 

(See overleaf for instructions.) 

Please send me the following back issues: 



MONTH/YEAR 



MONTH/YEAR 





VOLUME 1 








VOLUMES 






JUL '81 


Premier Issue 


$2.00 


D 


AUG '85 


Games 


$3.95 


(J 


AUG '81 




$2.00 


D 


SEP '85 


Education 


53.95 


U 


SEP '81 


Education 


$2.00 


□ 


OCT '85 


Graphics 


SS.95 


U 


OCT 'B1 


Printer 


$2.00 


□ 


NOV '85 


Data Ca mm. 


$395 


U 


NOV '81 




$2.00 


D 


JAN 'B6 


Beginners 


$3.95 


□ 


DEC '81 


Holiday 


$2.00 


□ 


FEB '86 


Utilities 


$3.95 


!. 


JAN '82 




$2.00 


a 


MAR '86 


Business 


$3.96 


U 


FEB £12 




$2.00 


n 


APR '86 


Home Help 


$3.95 


U 


MAR -82 




$250 


a 


MAY '86 


Printer 


$3.95 


u 


APR 82 




$2.50 


D 


JUN '86 


Music 


$3.95 


u 


JUN 82 


VOLUME 2 


$2.50 


D 


JUL '86 


Anniversary 
VOLUMES 


$395 


L. 


JUN '83 


Printers 


$295 


a 


AUG 86 


Games 


$3.95 


Li 


JUL '83 


Anniversary 


32.95 


a 


SEP '86 


Education 


$395 


U 




VOLUME 3 






OCT '86 


Graphics 


$3.95 


U 


AUG '83 


Games 


$2.95 


a 


NOV 86 


Dala Comm. 


$895 


u 


SEP '83 


Education 


52.95 


D 


DEC '86 


Holiday 


$395 


u 


OCT 83 


Graphics 


$3.35 


D 


JAN '67 


Beginners 


$3.95 


u 


DEC '83 


Holiday 


$3.95 


□ 


FEB '87 


U1 ill ties 


$395 


u 


MAR '84 


Business 


$3.95 


□ 


MAR '87 


Business 


$395 


i_< 


APR '84 


Gaming 


$3.95 


O 


APR '87 


Home Help 


$395 


u 


MAY '84 


Printer 


$3.95 


D 


MAY '87 


Printer 


$3.96 


u 


JUN W 


Music 


$3.95 


□ 


JUN '87 


Music 


$3.95 


l_ 


JUL '84 


Anniversary 
VOLUME 4 


$3.95 


P 


JUL '87 


Anniversary 
VOLUME 7 


$3.95 


u 


AUG '84 


Games 


S3.95 


□ 


AUG '87 


Games 


$3.95 


□ 


SEP 84 


Education 


S3.95 


□ 


SEP '87 


Education 


$3.95 


□ 


OCT '84 


Graphics 


$3.95 


D 


OCT '87 


Graphics 


$3.95 


c 


NOV '84 


Data Comm. 


$3.96 


□ 


NOV '87 


Dala Comm. 


$3.95 


p 


DEC '84 


Holiday 


$3.95 


O 


DEC '87 


Holiday 


S3.95 


n 


JAN '85 


Beginners 


$3.95 


U 


JAN '88 


Beginners 


$395 


□ 


FEB '85 


Utilities 


S3.95 


□ 


FEB '88 


Utilities 


$3.95 


o 


MAR '85 


Business 


53.95 


a 


MAR '88 


Business 


$3.95 


c 


APR '85 


Simulations 


$335 


a 


APR 88 


Home Help 


$3.95 


ij 


MAY '86 


Printer 


S3.95 


u 










JUN '85 


Music 


S3.95 


D 










JUL '85 


Anniversary 


$3.95 


a 











RAINBOW INDEX A complete index to the first three years, July 1981 through June 
t984, is printed in the July 1984 issue. Separate copies are available for $2.50 D 

The Fourth and Fifth Year Indexes including rainbow on tape are in the July 
1985 and July 19B6 issues, respectively. The Sixth Year Index is in the July 19B7 
issue. 



TOTAL . 
KY RESIDENTS ADD 5*. 



U.S. MAIL CHARGE . 
SHIPPING S, HANDLING 
U.P.S. CHARGE . 
TOTAL AMOUNT 
ENCLOSED . 



Article Reprints 

In instances where a given issue is now out ol print and not available for purchase, 
we do provide photocopies of specilic articles. The cost lor this service is $1.50 
plus 50 cents S/H per article. This service is provided only in the case of out-of- 
stock issues. 

Name 



Address 
City 



State . ZIP 



O Payment Enclosed, or 

Charge to my: nviSA □ MC DAE 

CARD # 



EXPIRATION DATE. 
SIGNATURE 



PHONE ( ) 



TO ORDER BY PHONE (credit card orders only) call (BQ0) 847-0309, 8 a.m. to 5 
p.m. EST. All other inquiries call (502) 22B-4492. 



1140 PRINT" 


HANOVER PARK IL 6 


0103" 




1150 PRINT 




1160 PRINT" YOU 


CAN ALSO GET HOL 


D OF ME ON" 




1170 PRINT" DELPHI." 


1180 PRINT" USERNAME 'MOONSHINE' 


FROM THE" 




1190 PRINT" COCO SIG." 


1200 PRINT" -RAY-";: 


1210 PRINT : PRINT"" : PRINT" HIT AN 


Y KEY." 




1220 EXEC44539: 


END 


1230 ' EXIT TO 


BASIC 


1240 CLS: PRINTS 8, "COLD START POK 

E" 

1250 PRINT: PRINT" CMD: 100 POKE1 


13,0:EXEC40999" 


: PRINT: PRINT" COM 


MENTS : COLD- START" 


1260 PLAYMUS$ 




1270 PRINT: PRINT" warning MEMORY 


WILL BE ERASED 


":GOSUB 3880 


1280 IF A$="Y" 

N 

1290 POKE113,0: 


THEN1290ELSERETUR 


EXEC40999 


1300 RETURN 




1310 ' 




1320 "MAIN MENU 




1330 CLS:PRINT@7,"*** MAIN MENU 


***" 




1340 PRINT 




1350 PRINT" (1) 


PRINT DIRECTORY" 


13 60 PRINT" (2) 


PRINTER NOT READ 


Y PEEK" 




1370 PRINT" (3) 


DISABLE THE RESE 


T BUTTON" 




13 80 PRINT" (4) 


KEY REPEAT" 


1390 PRINT" (5) 


SET PRINTER LINE 


WIDTH" 




1400 PRINT" (6) 


SET MAXIMUM MEMO 


RY" 




1410 PRINT" (7) 

D" 

1420 PRINT" (8) 


HI SPEED POKE CM 


ALTERNATE CMD FO 


R INKEY$" 




14 30 PRINT" (9) 


SLOW KEYBOARD RE 


SPONSE" 




1440 PRINT" (10) 


DISK OR CASSETTE 


PEEK" 




1450 PRINT" (11) 


DISK DRIVE LIGHT 


POKE" 




1460 PRINT" (12) 


DISABLE ALL FUNC 


TIONS" 




1470 PRINT" (13) 


COLD -START POKE" 


1480 PRINT"ENTER NUMBER: " ; : INPUT 


MAIN$ 




1490 IF VAL(MAIN$)<1 THEN1520 


1500 IF VAL(MAIN$)>14 THEN1520 


1510 RETURN 
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The Professional 
Color Computer 



Enhancements 
for Productivity 
from HJL Products 











■ naricowllh any coin 

'i and out 
• easily as pos: 3 

pose of the I y of 

professional enhancements for ALL 



The Self-contained 
ProCase-57 Keyboard • $79.95 

is own sir 'file 

oCoona ing 

lew minutes with no soldering. 

The H JL-57 

Keyboard Kit • $59.85(89.95 

Overwhelming favorite of serious CoCo 
users worldwide, the HJL-57 keyboard 
provides the smooth consistent feel and 
<ou need for maximum speed 
wfthmlnli 

•ilginalor i 
! or CoCo 2 and CoCo 3 are $69.95. 

The NunvbQiJflck Keypad ■ $59 95 

< contained numeric keypad tor 
ng. Beside- 



numbers, it has all the cursors, symbols 
and math keys, Including autoshlfted 
ADD and MULTIPLY. Includes cable and 
connectors for solderless installation. 

The Monitor Adapter- $25.95 

This universal driver works with all 
monochrome monitors. Easily Installed 
without clips, jumpers or soldering 
(except some CoCo 2s with solderad-ln 
video chips). Here's crisp, flicker-free 
monitor output with all the rella: 
you've coma toexpect from HJL Products. 

The Monitor -$99.95 

Our hi 'ion amber monitor gives 

you Ihe display preferred by most 

1 1 ter pros. nee you 've u sed 1 1 , 
you'll never go back to the TV set, 
12-inch CRT has etched non-glare face- 
plate. (Requires adapter sold above) 

Quick Basic Plus • $19.95 

High-performance programming aid works 
wllh any CoCo that has 4 function keys. 
26 one-touch BASIC statements, 10 user- 
defined macros at a time (save as many 
sets of macros as you like), auto line- 
numbering, Instant screen dump to 

i global search, make this 
software Ideal for any BASIC programmer. 
Specify disk or cassette. 



The Softswitch $89.95 

Connect any two parallel printers to one 
computer; select printers manually or 
Insert a simple printer code In the text 
to be printed for fully-automatic, all 
solid-state switching. Complete with 
three cables and operating Instructions. 

The HJL Warranty 

Every HJL product comes with a full, 
one-year warranty and the exclusive HJL 
15-day unconditional guarantee (except 
software). 

Pick a Pair and Save 15% 

Take 1 5% of f the price of any two or 
more products shown here. Just mention 
this ad when you order. 



Call Now, Toll Free 

1-800-828-6968 

In Now York 1.800-462-4391 
International call*: 716235-8368 



Oraerlng Inlormalkm &|j<itiiiy tnodel (Original, F -vonlitn, or CcCn 2 Modal Number). Payment by c.o.D.. chock, 
Me5lt*" «:iudacampi< > i •« and expirallan dolo. Afld $2.00 for 

'piping chnrgaa boloru ordarinD monitors). New York amla 
tales iax Dealer Inqulrloi Invited 



Wm, 



P R O D U 



Div . of Touchstone Technology Inc. 

955 Bultalo Road • P.O. Box 24954 

Rochester, New York 14624 



WE'RE BRINGING THE COCO 



RAINBOW'S 
BROADENING ITS 
SPECTRUM 

the rainbow and the Delphi Infor- 
mation Utility have joined together 
to allow CoCo owners all over the 
world to connect with one another! 

Delphi is a full-service information 
utility. It offers everything from up- 
to-the-minute news stories from Thi 
Associated Press to electronic mail 
services. But, oesf of all, it now has 
a special forum for Color Computer 
owners, and it's operated by the 
people who bring you the rainbow 
each month. 

The CoCo Special Interest Group 
(SIG) features a variety of services, 
including an open forum where you 
can send and receive messages 
from Color Computer owners all 
over the world. It also has several 
databases to which you can upload 
your favorite programs and from 
which you can download programs 
written by other CoCo enthusiasts. 
Some of these databases are basic 
programming, OS-9 and home ap- 
plications. 

When setting up your account with 
Delphi, if you do not have a credit 
card or prefer not to use it, Delphi 
requires that you send $25 to give 
your account a positive balance. 
This will be refunded after your first 
free hour if you choose to no longer 
use the system or it will be applied 
to future connect charges. If you do 
not maintain a positive balance, you 
will be charged $3.50 each month 
for direct billing. 



PEEK INTO THE 
RAINBOW 

The CoCo SIG's conference feature 
allows you to meet electronically 
with other members of the CoCo 
Community. You can join conferen- 
ces with notables such as Dale 
Puckett, Cray Augsburg, Marty 
Goodman, Don Hutchison, Jim 
Reed, Lonnie Falk and others — on 
a regular basis. Conference sched- 
ules will appear in the rainbow 
each month. Be sure to check online 
announcements for changes and 
additions. 

THE OTHER SIDE 
OF THE RAINBOW 

On Delphi, you also are able to buy 

rainbow on tape — order a whole 
set, or download an individual pro- 
gram immediately. You can also 
renew your rainbow subscription, 
make a fast and easy order for soft- 
ware or hardware from a multitude 
of vendors, or inquire about prod- 
ucts on the CoCo SIG. 

We also have a number of programs 
that you can download and use, just 
for the cost of the time you spend 
transferring them. There'll also be 
corrections for rainbow articles, 
helpful hints and many other useful 
features. 



FREE LIFETIME 
MEMBERSHIP 

the rainbow is offering subscribers 
a free lifetime subscription to Delphi 

— a $24.95 value — and a free hour 
of connect time — a $7.20 value at 
either 300, 1200 or 2400 Baud — so 
you can sample Delphi and the rain- 
bow CoCo SIG. That's right. Your 
subscription to the rainbow entitles 
you to this $32.15 value as a free 
bonus! 

If you're not a rainbow subscriber, 

just enter your order when you sign 
on with Delphi and you'll get the 
same great deal! For our $31 sub- 
scription fee, you'll get the finest 
Color Computer magazine ever, a 
free lifetime subscription to Delphi 
and a free hour of connect time. 

SAVE EVEN MORE 

Want to save even more? While 
you're online you can order, for only 
$29.95, a deluxe package which in- 
cludes the Delphi membership, the 
Delphi Handbook and Command 
Card ($21.95) and a total of three 
hours of connect time ($21.60). 

Delphi provides us all with 
Immediate CoCo Community. 

Check it out today. After all, you can 
sample it for free! 



Problems? Call Delphi: 
(800) 544-4005 
(617)491-3393 



DELPHI 



TYPE: 

GROUP COCO 




How to reach RAINBOW'S Color Computer SIG . . . 



There are several ways to connect to Delphi and THE 
rainbow's CoCo SIG, In most cities you will not even have 
to pay long distance charges; you can use special data 
communications networks like Telenet, Tymnet and the 
Canadian Datapac network. 

First, set your terminal program to operate at either 300 
or 1200 Baud (depending on the modem you have), and 
also select either 7 bits with even parity or 8 bits with no 
parity, and one stop bit. (If one combination doesn't work, 
try another.) 

Decide which network you should use. There is no 
surcharge for Telenet or Tymnet. Canadian residents using 
Datapac will be charged an additional $10.80 (U.S.) per 
hour. 

On Telenet; Uninet network has merged with Telenet. 
To get the Telenet number for your area, call (800) 336- 
0437. After you call the local access number and make 
connection, press ENTER twice. When the "TERMINAL^" 
prompt appears, press ENTER again. When the "@" prompt 
appears, type C DELPHI and press enter. 

On Tymnet: Call (800) 336-0149 to get the Tymnet 
number for your area. After you dial your designated 
number and connect, you will see either "garbage" or a 
message saying "please type your terminal identifier." At 
this point, even if the screen is garbled, simply press 'A'. 
When "please log in:" appears, type DELPHI and press 
ENTER. 

From Canada (on Datapac): Call Delphi Customer 
Service at (617) 491-3393 to get the Datapac number for 
your area. After you connect, press the period key (.) and 
enter (use two periods if you're using 1200 Baud). Type 
SET 2:1, 3:126 and press ENTER. Now type p 1 310S, 
DELPHI; and press ENTER. Delphi's new rates indicate an 
additional $10.80 hourly surcharge for evening use of 
Datapac, which means a total of $18 (U.S.) for connect 
time. 

From other countries: Many countries have their own 
data networks that can connect to either Telenet or 
Tymnet. Check with the telephone authorities in your 
country for details on ho w to sign up for this service. When 
you have an account set up, you can reach Delphi with 
a "host code" of 31 10 6170 3088 through Telenet, or 3106 
90 6015 through Tymnet. (You'll have to pay the toll 
charges for this connection.) 
Type in Your Username 

If you're already a subscriber to the rainbow, at the 



"USERNAME:" prompt, type J0INDELPHI and press 
ENTER. At the "PASSWORD:" prompt, type RAINBOW. 
Then, at the "NUMBER:" prompt, type your individual 
subscription number from the mailing label of your latest 
issue of THE RAINBOW. (If there are one or more zeros at 
the beginning of this number, include them.) 

If you don't already have a subscription, at the "USER- 
NAME:" prompt, type JDINDELPHI and press enter. At 
the "PASSWORD:" prompt, typeSENDRPINBOW and press 
ENTER. Have your MasterCard, VISA or American 
Express card ready, because you'll be led through a series 
of questions that will enable us to put your rainbow and 
Delphi subscriptions into effect. In an effort to hold down 
non-editorial costs, we do not bill for subscriptions. 

If you make a typing error, just use Control-X and start 
over. Remember that at any point, when you're on Delphi, 
you can type HELP to get help on how to use the system. 
To get off the system just type BYE. 

If you find that you're unable to log on to Delphi and 
enter the CoCo SIG after following these instructions, call 
us during afternoon business hours at (502) 228-4492. We'll 
be glad to offer assistance. 

Come Visit Us! Type: GROUP COCD 

After you sign in, you'll be prompted to set up your own, 
personal "user name" — Delphi is a friendly service, no 
numbers to remember — and you'll be asked a number 
of questions so Delphi can set up your account. You'll also 
be assigned a temporary password. 

Delphi will tell you that your account will be ready after 
6 p.m. the same day if you sign up before noon (Eastern 
time zone.) If not, your account will be ready at 6 p.m. 
the next day. Once an account is verified and opened, each 
RAINBOW subscriber will be credited with an hour of free 
time! 

When you log back in, use your chosen username and 
your temporary password to access the system. At that 
point, you will meet Max, who will help you configure 
things and will change your temporary password into your 
own personal password. This is the password you will use 
for subsequent sessions — or until you change it. 

After Max bids you goodbye, you'll wind up at the 
Delphi Main Menu; type in GROUP COCD and join us on 
the CoCo SIG! 



1520 PLAYMUS$: RETURN 


1870 ' 




1530 ' 


1880 'KEY REPEAT 




1540 ' PRINT DIRECTORY 


1890 CLS:PRINT@11 


, "KEY REPEAT" 


1550 CLS:PRINT@8, "PRINT DIRECTOR 


1900 PRINT: PRINT" 


CMD 100 A=PEEK 


Y" 


(116)*256+PEEK(1" 




1560 PRINT: PRINT" CMD: 100 POKE 


1910 PRINT" 


17)-100:X=IN 


111,254:DIR" 


T(A/256) :Y" 




1570 PRINT: PRINT" COMMENTS: DISK 


1920 PRINT" 


=A-(X*256) :F 


BASIC ONLY" 


ORI=A TO A" 




1580 GOSUB3880 


1930 PRINT" 


+72:READB:PO 


1590 IF A$="Y"THEN1600ELSERETURN 


KEI,B:NEXT" 




1600 PRINT: PRINT" PLEASE WAIT":F 


1940 PRINT" 


I:POKE362,12 


ORX=1TO3000 : NEXT : IF ( PEEK ( 6 53 14 ) A 


6:POKE363," 




ND1)=1 THEN GOTO 1610 ELSE GOTO 


1950 PRINT" 


X:POKE3 64,Y: 


1640 


CLEAR 2 00, A" 




1610 PLAYMUS$: PRINT: PRINT" PRINT 


1960 PRINT" 


: DATA50 , 100 , 


ER NOT READY" 


52,20,189," 




1620 GOTO1580 


1970 PRINT" 


161,121,132, 


1630 IF A$="Y" THEN1580ELSERETUR 


127,52,2,1" 




N 


1980 PRINT" 


89,161,193,1 


1640 DIR: POKE111 , 254 : DIR: PRINT :R 


42,4,254,1" 




ETURN 


1990 PRINT" 


89,167,211,1 


1650 ' 


82,1,83,12" 




1660 ' PRINTER NOT READY PEEK 


2000 PRINT" 


9,191,38,37" 


1670 CLS: PRINT@ 6, "PRINTER NOT RE 


2010 PRINT 




ADY PEEK" 


2020 PRINT" MORE. 


HIT ANY KEY" ; : 


1680 PRINT: PRINT" CMD: 100 IF (P 


2030 A$=INKEY$:IF 


A$=""THEN2030 


EEK(65314)AND1)=1";: 


2040 CLS: PRINT"": 


PRINT" CMD 110 


1690 PRINT" THEN GOTO.. 


DATA53,22,150,255 


,129," 


ii 

• 


2050 PRINT" 


8,38,7,90,39 


1700 PRINT: PRINT" COMMENTS: IF L 


,31,48,31," 




INE 100 RETURNS 1" 


2060 PRINT" 


48,31,32,15, 


1710 PRINT" PRINTER IS 


129,32,37," 




NOT READY" 


2070 PRINT" 


22,129,123,3 


1720 GOSUB3880 


6,18,193,2" 




1730 IF A$="Y"THEN1740ELSERETURN 


2080 PRINT" 


49,36,14,167 


1740 PRINT: PRINT" PLEASE WAIT":F 


,128,92,18" 




ORX=1TO3000:NEXT:IF (PEEK(65314) 


2090 PRINT" 


9,162,130,52 


AND1)=1 THEN GOTO1750 ELSE GOTOl 


,20,32,201" 




760 


2100 PRINT" 


,53,22,151,2 


1750 PLAYMUSS: PRINT: PRINT" PRINT 


55,57,198," 




ER NOT READY": GOTO 1720 


2110 PRINT" 


1,32,251" 


17 60 PRINT: PRINT" PRINTER READY" 


2120 PRINT: PRINT" 


COMMENTS: USE 


:GOTO 1720 


<CLEAR> KEY TO" 




1770 ' 


2130 PRINT" 


REPEAT THE 


1780 ■ PRINTER SCREEN MODE 


KEY . " 




1790 CLS :PRINT@4, "DISABLE THE RE 


2140 GOSUB 3880 




SET BUTTON" 


2150 IF A$="Y"THEN2160ELSERETURN 


1800 PRINT : PRINT" CMD: 100 POKE1 


2160 GOTO170 




13,0" 


2170 ' 




1810 PRINT: PRINT" COMMENTS: RESE 


2180 CLS: PRINT: PRINT" KEY REPEAT 


T COMMAND" 


IN EFFECT.": END 




1820 PRINT:PRINT" CMD: 100 POKE1 


2190 ' 




13,85" 


2 200 'PRINTER LINE WIDTH 


1830 PRINT: PRINT" COLDSTARTS WHE 


2210 CLS:PRINT@5, 


"SET PRINTER LI 


N RESET IS PUSHED" 


NE WIDTH" 




1840 GOSUB3880 


2220 PRINT:PRINT" 


(1) 16 CPL" 


1850 IF A$="Y"THEN1860ELSERETURN 


2230 PRINT" (2) 


32 CPL" 


1860 POKE1 13,0: RETURN 


2240 PRINT" (3) 


64 CPL" 
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22 50 PRINT" (4) 132 CPL (DEFAULT 

)" ' 

226)3 PRINT" (5) 255 CPL" 

227)3 PRINT" (6) EXIT TO MAIN MEN 

U" 

228)3 PRINT:PRINT" ENTER NUMBER:" 

: PRINT: PRINT" ALL MAY not BE COM 

PATIBLE,": PRINT" CONSULT YOUR PR 

INTER MANUAL" ; : 

2 290 A$=INKEY$:IF A$="" THEN2 290 

23^0 IF VAL(A$)<1 THEN2330 

2310 IP VAL(A$)>6 THEN2 3 30 

2320 GOTO2340 

2330 PLAYMUS$:GOTO2190 

2340 IF A$="l" THENGOSUB2410 

2350 IF A$="2" THENGOSUB2470 

2360 IF A$="3" THENGOSUB2530 

2370 IF A$="4" THENGOSUB2590 

2380 IF A$="5" THENGOSUB2650 

2 390 IF A$="6" THEN RETURN 

2400 RETURN 

2410 '16 CPL 

2420 CLS:PRINT@5,"16 CHARACTERS 

PER LINE" 

2 430 PRINT"": PRINT" CMD: 100 POK 

E155,16" 

2440 GOSUB3880 

2450 IF A$="Y"THEN2460ELSERETURN 

2460 POKE155,16:RETURN 

2470 '32 CPL 

2480 CLS:PRINT@5,"32 CHARACTERS 

PER LINE" 

2490 PRINT:PRINT" CMD: 100 POKE1 

55,32" 

2500 GOSUB3880 

2510 IF A$="Y"THEN2520ELSERETURN 

2520 P0KE155,32:RETURN 

2530 '64 CPL 

2540 CLS:PRINT@5,"64 CHARACTERS 

PER LINE" 

2 550 PRINT SPRINT" CMD: 100 POKE1 

55,64" 

2560 GOSUB3880 

2570 IF A$="Y"THEN2580ELSERETURN 

2580 POKE 155, 64: RETURN 

2590 '132 CPL 

2 600 CLS:PRINT@4,"13 2 CHARACTERS 

PER LINE" 
2610 PRINT:PRINT" CMD: 100 POKE1 
55,132" 

2620 GOSUB3880 

2 630 IF A$="Y"THEN2 640ELSERETURN 
2 640 P0KE15 5, 13 2: RETURN 
2650 '255 CPL 
2660 CLS:PRINT@4, "255 CHARACTERS 

PER LINE" 
2 670 PRINT: PRINT" CMD: 100 POKE1 
55,255" 
2680 GOSUB3880 



2690 IF A$="Y"THEN2700ELSERETURN 

2 700 POKE155, 255: RETURN 
2710 ' 

2720 'SET MAX MEMORY 

2730 CLS:PRINT@7,"SET MAXIMUN ME 

MORY" 

2740 PRINT: PRINT" CMD: 100 POKE2 

5,6:POKE2 6,l:" 

2750 PRINT" POKE153 6,0: 

NEW" 

2760 PRINT: PRINT" USE BELOW POKE 

FOR DISK SYSTEMS" 
2770 PRINT" CMD: 100 POKE25,14:P 
OKE26,l:" 

2780 PRINT" POKE3584,0: 

NEW 

2790 PLAYMUS$: PRINT: PRINT" warni 
ng WILL ERASE MEMORY ! ! 1 " 
2800 PRINT" DOES NOT ALLOW USE 
F GRAPHICS" 
2810 GOSUB3880 

2820 IF A$="Y"THEN2830ELSERETURN 
2830 IF PEEK(188}=14 THEN 2850 
2840 CLS: PRINT: PRINT" CASS.SYSTE 
M POKE CMD EXECUTED! ":FORX=1TO20 
00 : NEXT : POKE25 , 6 : POKE2 6 , 1 : POKE15 

3 6,0: NEW 

2850 CLS: PRINT: PRINT" DISK SYSTE 




The VIP Integrated Library combines all six popular VIP application 
programs -VIP Writer", Spelter, Calc, Database, Terminal and 
Disk-Zap • into one program on one disk. The program is called VIP 
Desktop. From the desktop you have instant access to word 
processing with a spelling checker always in attendance, data 
management with mail-merge, spreadsheet financial analysis, tele- 
communications and disk maintenance. Just move the hand to the 
volume on the bookshelf and the application is therB. 64K req'd. 

VIP Integrated Library DISK $149.95 



■* CoCo 3 owners: Purchase the VIP Integrated Library /WE (Writer 
Enhanced) which has VIP Writer III in place of VIP Writer. $159.95 
Previous VIP Library owners upgrade to the VIP Library /WE for 
$49.95 + $3 shipping. Send $52.95 and original VIP Library disk 



SD Enterprises POB.1233. Grasham, Or. 97030 503 663-2865 

Please add $3.00 tor shipping. COD orders add an additional $2.25. Personal 
checks allow 3 weeks for delivery. All other orders shipped Die same day. 
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M POKE CMD EXECUTED! ":FORX=1TQ20 


RESPONSE" 


00 : NEXT : POKE25 , 14 : POKE26 , 1 : POKE3 


3240 PRINT: PRINT" CMD: 100 POKE2 


534,0:NEW 


83,X" 


2860 ' 


3250 PRINT: PRINT" X=5 TO 2 55, 5 


2870 'SET HI-SPEED POKE 


IS THE FASTEST" 


2880 CLS;FRINT@9,"HI-SPEED POKE" 


3260 PRINT: PRINT" RESET CMD FOR 


2890 IF COCO$="Y"THEN2930 


ABOVE : " 


2900 PRINT: PRINT" CMD: 100 P0KE6 


3270 PRINT: PRINT" CMD: 100 POKE2 


5495, 0" 


83,4" 


2910 PRINT: PRINT" RESET POKE FOR 


3280 GOSUB3880 


ABOVE : " 


3290 IF A$="Y"THEN3 300ELSERETURN 


2 920 PRINT: PRINT" CMD: 100 POKE 6 


3 300 PRINT: PRINT" ENTER X (5-255 


5494,0":GOTO2960 


) RECOMMEND 40 ": PRINT" 4 TO 


2930 PRINT: PRINT" CMD: 100 POKE& 


RESET" ; : INPUT X 


HFFD9,0" 


3 310 IF X<4 OR X>255 THEN 3 320 E 


2940 PRINT: PRINT" RESET POKE FOR 


LSE 3330 


ABOVE : " 


3 320 PLAYMUS$:GOTO3 300 


2950 PRINT: PRINT" CMD: 100 POKE& 


3330 POKE283,X:RETURN 


HFFD8,0":GOTO2960 


3340 ' 


2960 PRINT:PRINT" COMMENTS: DOUB 


3350 'DISK OR CASS PEEK 


LES RUNNING SPEED" 


3 3 60 CLS:PRINT@5,"DISK OR CASSET 


2970 PLAYMUS$ 


TE PEEK" 


2980 PRINT" warning USING HI-SPE 


3 370 PRINT: PRINT" CMD: 100 IF PE 


ED HEATS" 


EK(188)=14 THEN " 


2990 IF COCO$="Y"THEN3000:ELSE30 


3 380 PRINT: PRINT" IF LINE 100 RE 


10 


TURNS 14 ■ DISK" 


3000 PRINT" UP CHIPS. ":GOTO3030 


3 390 PRINT" IF LINE 1001 RETURNS 


3010 PRINT" UP CHIPS, ALSO WILL 


06 = CASS" 


NOT WORK" 


3400 GOSUB3880 


3020 PRINT" ON DISK OR CASSETTE 


3 410 IF A$="Y"THEN3420ELSERETURN 


I/O" 


3420 IF PEEK(188)=14 THEN GOT034 


3030 GOSUB3 880 


30 ELSE GOTO3440 


3040 IF A$="Y"THEN3050ELSERETURN 


3430 PRINT: PRINT" 14 , YOU ARE USI 


3050 IF COCO$="Y"THEN3060 ELSE 3 


NG A DISK SYSTEM": FOR X=l TO 400 


070 


0: NEXT: RETURN 


3060 POKE&HFFD9,0: RETURN 


3440 PRINT: PRINT" 6, YOU ARE USI 


3070 POKE65495,0: RETURN 


NG A CASSETTE":FOR X=1TO4000 :NEX 


3080 ' 


T : RETURN 


3090 'ALTERNATE CMD FOR INKEY$ 


3450 « 


3 100 CLS : PRINTS 3 , "ALTERNATE CMD 


3460 'DISK/DRIVE LIGHT 


FOR , INKEY$ I " 


3470 CLS: PRINT@ 6, "DISK/DRIVE LIG 


3110 PRINT: PRINT" CMD: 100 EXEC4 


HT POKE" 


4539" 


3480 PRINT: PRINT" CMD: 100 POKE6 


3120 PRINT: PRINT" COMMENTS: HELP 


5344, X 


FUL WHEN MAXIMUM" 


3490 PRINT 


3130 PRINT" MEMORY IS 


3500 PRINT" IF X=l THEN IT USES 


NEEDED" 


DRIVE 0" 


3140 GOSUB3880 


3510 PRINT" IF X=2 THEN IT USES 


3150 IF A$="Y"THEN3160ELSERETURN 


DRIVE 1" 


3160 CLS: PRINT: PRINT" 10 PRINT " 


3520 PRINT" IF X=4 THEN IT USES 


;:PRINT CHR$(34) ;:PRINT"HIT ANY 


DRIVE 2" 


KEY.";:PRINT CHR$(34) 


3530 PRINT" IF X=64 THEN IT USES 


3170 PRINT" 20 EXEC44539" 


DRIVE 3" 


3180 PRINT: PRINT" RUN" 


3540 PRINT" IF X=0 RESETS ABOVE 


3190 PRINT: PRINT" HIT ANY KEY." 


CMD'S" 


3200 EXEC44539: RETURN 


3550 PRINT: PRINT" TURNS ON LIGHT 


3210 ' 


, DOES NOT " 


3220 'SLOW KEYBOARD RESPONSE 


3 560 PRINT" EFFECT DISK/DRIVE MO 


3230 CLS : PRINT § 4, "SLOW KEYBOARD 


TOR" 
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357J3 GOSUB388# 


3750 PRINT: PRINT" USE CMD BELOW 


358JS IF A$="Y"THEN3590ELSERETURN 


TO RESET" 


359J3 IF PEEK (18 8) =6 THEN 361j3 


3 760 PRINT: PRINT" CMD: 100 POKE 3 


3 6^ GOTO3 630 


01,129:POKE302,60" 


3 610 PRINT" YOU HAVE A CASSETTE, 


3770 PLAYMUS$: PRINT: PRINT" warni 


TRY #10" 


ng SAVE PROGRAM BEFORE " 


3 620 PRINT" FROM MAIN MENU.": FOR 


3780 PRINT" EXECUTING THIS COMMA 


X=lTO40p0 : NEXT : RETURN 


ND." 


3 63J3 CLS:PLAYMUS$; PRINT: PRINT" W 


3 790 PRINT" OR COPY DOWN THE RES 


ATCH LIGHT ON DRIVE #0":FOR X-1T 


ET CMD." 


04j3pj3:NEXT 


3800 GOSUB3880 


3640 P0KE65344,l:F0R X=1TO3000;N 


3810 IF A$="Y"THEN3 820ELSERETURN 


EXT 


3820 CLS: PRINT: PRINT" ALL FUNCTI 


3 650 POKE65344,0:FOR X=lT01j3j3j3 :N 


ONS DISABLED" 


EXT 


3830 POKE301, 129 : POKE302 , 119 


366j3 FOR X=1T01J3 


3840 PRINT: PRINT" TRY IT. TYPE ' 


3670 POKE65344,l:FOR Y=1TO150:NE 


LIST ' , AND VIEW" 


XTY 


3 850 PRINT" THE PROGRAM IN MEMOR 


3 680 POKE65344,0:FOR Y=1TO100:NE 


Y, THEN" 


XTY: NEXT X 


3 860 PRINT" TRY AND 'RUN' IT, OR 


3 690 PLAYMUS$: RETURN 


'SAVE' IT" 


3700 * 


3870 END 


3710 'DISABLE ALL FUNCTIONS 


3880 A$="": PRINT: PRINT" EXECUTE? 


3720 CLS: PRINTS, "DISABLE ALL FU 


(Y/N, <ENTER> - N) " ; : 


NOTIONS" 


3 890 A$=INKEY$:IF A$="" THEN 3 89 


3730 PRINT: PRINT" CMD: 100 POKE3 


ELSE RETURN 


01,129:POKE302 / " 


3900 PMODE4,l:PCLS:SCREENl, 1 


3740 PRINT" ' 119" 


3 910 GOTO310 ^ 
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For 
Your 

CoCo 
jgmanfas&aidC 1 , 2, & 3 

(Reviewed in Oct. 57 RAINBOW) Makes programming sensa- 
tional-looking graphics as easy as moving a joystick! Converts 
precision drawings into "DRAW" commands which can be stand- 
alone BASIC programs or merged into other programs. Also 
includes "DEMO" and "PAINT" programs. Requires a spring- 
centered joystick or touch-pad. 32k ECB tape or disk $14.95 

? ENIGMA? 
Transform your computer into an ultra-secret code machine cap- 
able of enciphering and deciphering in over 12 million virtually 
unbreakable codes! (not simple substitution codes). Print hard 
copy or store & retrieve coded data on tape or disk. Only the per- 
son who has the password can read it! 32k ECB tape or disk $12.95 

Just answer the prompts & type your message; "EZ WRITER" will 
put it into perfect letter form and send it to your DMP or DWP. 
Professional-quality, single-page letters every time! Do one letter 
or multiple copies for "personalized" mailings. Saves letters and 
mailing lists. Even does labels. Menu-driven. Undoubtedly the 
EZ-est letter writing system available! Free sample on request! 
32k ECB tape or disk $19.95 

EZ MATH PACKAGE 

FOUR superior educational "games": "RACEWAY". "GO TO THE 
TOP" [multiplication tables drill), "WORD PROBLEMS", & "PYRA- 
MID". Covers addition, subtraction, multiplication. & division. 
Different levels of difficulty. Exciting graphics & sounds. EZ and 
fun! 32k ECB tape or disk $19.95 wltfVJ 1 

KEYBOARD COMMANDER £? £ - 
Probably the most exciting typing tutor available for your CoCo. 
You are the commander of a space ship & it's your job to shoot 
down alien letters & words as they speed toward you & attack your 
spaceship. Exciting Hi-Res action! 32k ECB tape or disk $24. 95 

E.Z. FRIENDLY SOFTWARE 

HUTTON & ORCHARD ST3. • RH1NECL1FF, NY 12574 . (914) B76-3935 
(Add $1.50 s-'h to all orders. NY residents add state sales tax.) 





NEW FROM K-SOFT 




FROGDAY AFTERNOON 


It ain't easy being a Frogman, and 
somebody's gotta keep the subs and 
torpedos and squids off his back. 
That's you! 




You won't want to quit! 




00 
00 
ON 
(H 

d 

S 

C/) 


8 Levels - Disk only 
Not Protected - Coco 3 only 


00 
00 
<T> 

1— ( 

\o 

2 

5 

to 


ZANDAR 

(See Feb. and March Rainbow) 


$24.95 each 

Spring Special 

Save $15 - Both for $34.90 




WA Slate resident add 7.5'» sales lax 
Overseas send U.S. Money Order 






Check - Money Order - C.O.D. 
Phone (509) 884-0338 






K-Soft 

300 13th N.E. 
E. Wenatchee, WA 98802 




NEW FROM K-SOFT 
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eeping track of your finances is 
very important in this day and 
age, and your Color Computer 
can help. 1 have seen several programs 
for home budgeting lately, but have not 
seen any that suited my particular 
needs. So, I went ahead and created my 
own. There were four things in partic- 
ular I wanted to accomplish: 

1) keep track of my income and ex- 
penses while staying balanced 
against my checking and savings 
account 

2) calculate my income and expenses 
by account (or category), and 
project a budget from these ac- 
counts 

3) keep an orderly record for filing an 
itemized 1040 income tax return 
(with check numbers or other 
information for proof of deducti- 
bility) 

4) have provision for easy addition, 
deletion or correction of entries 

To accomplish these requirements, I 
wrote two programs. The first program, 
Home Financial Analyst, keeps track of 
my income and expenses for a single 
month. The second program, Yearly 
Report, totals the monthly files together 
and gives a year-end (or part of the year) 
report and projects a monthly budget 
(adjusted for inflation, if you want). It 
also has an option to print out a form 
for planning your next month's budget. 
This is what budgeting is all about — 
being able to see how you have spent 
your money in the past and using this 
information to plan how you are going 
to use your money in the future. 

Running Home Financial A nay 1st 

Upon running Listing I, BUDGET, you 
are asked to enter the month and year 
you will be working on (use numbers, 
not letters). After that, you just need to 
select a number off the screen to go to 
the function you want, as the program 
is menu-driven. 

But there is one thing you must do at 
the beginning of each month — enter 

Dan Piersma has an associate 's degree 
in electronics and is currently employed 
as an electronic technician at a hospital 
in Evansville, Indiana. His wife, Mi- 
chelle, is a registered nurse. 



Get help at tax time by organizing your income, 
expenses and banking accounts 




flmi&imdkl AmmHy^i 



By Daniel Piersma 

your cash balance (total of checking, 
savings, etc.) in Account 100 as your 
first entry. After that, do not use Ac- 
count 100 for the rest of the month. I 
have set up the account numbers so that 
accounts 100 through 140 are income 
accounts, accounts 200 through 283 are 
non-taxable expenses, and accounts 300 



through 340 are tax-deductible ex- 
penses. The list of account numbers can 
be found by using the file maintenance 
option on the screen. 

This program runs like a database 
program, which means each transaction 
you enter is filed in memory with a file 
number attached to it. Each file will 







BUDGET PLANNING 


FORM 




BUDGET PIJkN FOR .../,../... 
















130 


INTEREST INCOME 




13fl 


MISC . TAXABLE INCOME 


lit NON-TAXABLE INCOME 


lit 




2#0 FEDERAL WITHOLDING 

::,:!. FICA 

2fl STATE WITHQLDING 


2Z.0 

2?2 








203 LOCAL WTTHOLDING 


















MORTGAGE .......... 


2 4 GAS 5 ELECTRIC 
J5P TELEPHONE 
2«p CAR EXPENSE 










1SJJ 




21t INSURANCE 
lit HOUSE REPAIH3 
281 ANNUITY 
2 32 MISC. EXPENSE 


27fl 














283 LOAN PAYMENTS 






Itt MEDICAL EXPENSE 
11% CONTRIBUTIONS 
32JJ INTEREST PAID 
33j> TAXES PAID 










330 






34J MISC. (TAX DED.) 
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have five pieces of information in it: 
date, account number, amount, check 
number (or savings account) and any 
comments you may want to enter. By 
setting up the information by files, you 
can easily recall it from memory for 
editing or deletion. This also makes it 
possible to have a search function, 
which lets you search for dates, individ- 
ual accounts, amount spent, or a check 
number. 

The monthly program will generate 
three reports, which can be printed 
either to a printer or to the computer 
screen: 

1) a report of each account number 

2) a report of all account total dollar 
amounts, with a grand total 
matched against your checking 
and savings accounts 

3) a report of each data file in numer- 
ical order (to aid in error detection 
and correction) 

The program will save your files to, 
and load them from, disk upon selection 
from the menu. Use care when saving 
a file. The disk file titles are set up by 
the date you are working with; if you 
work on a month that already has a disk 
file created, trying to save new informa- 
tion may erase the old file. Also, if you 
load a file from disk or break the 
program and start over, all the files that 
were in the computer's memory will be 
gone. You will have to start from scratch 
if you haven't saved your information 
to disk. 

One other thing 1 do is designate my 
checks for separate accounts. For exam- 
ple, I write one check for my mortgage, 
putting the interest in Account 320 and 
the principal in Account 230. This way, 
the interest is under a tax-deductible 
account, but both can still be referenced 
by the proper check. 

Running Yearly Report 

The report program is very simple to 
run and assumes you have your data 
files loaded in Drive when you start. 
Just load and run Listing 2, REPORT. 
Enter the starting and ending dates. The 
program will ask if you want a budget 
planning form, which is a printout to be 
used to plan your budget. You are then 
asked for a cost of living factor, which 
will be used to print out a projected 
budget. 

The budget figures are calculated by 
taking the total value for each account 
and dividing it by the number of 
months. Then it is multiplied by your 
cost of living factor and a report is 



JUL- 


1987 TO 


SEP-19S7 






ACCOUNT NUMBER 




CREDIT 




DEBIT 


100 CASH BALANCE 


S 


2500 . aa 






110 EARNED INCOME 


$ 


3336.72 






120 INTEREST INCOME 


$ 


9.75 






130 MISC. TAXABLE INCOME 


$ 


0.03 






140 NON-TAXABLE INCOME 


$ 


150,00 






200 FEDERAL WITHOLDING 






$ 


281.28 


201 FICA 






$ 


183.96 


202 STATE WITHOLDING 






$ 


20.70 


203 LOCAL WITHOLDING 






$ 


6,24 


210 GROCERY EXPENSE 






$ 


187.65 


220 WATER 






s 


39.75 


2 30 MORTGAGE 






$ 


165,00 


240 GAS & ELECTRIC 






9 


167,70 


250 TELEPHONE 






S 


74.55 


260 CAR EXPENSE 






$ 


1SE.30 


270 INSURANCE 






S 


27.00 


2S0 HOUSE REPAIRS 






s 


0.00 


281 ANNUITY 






s 


150.00 


282 MISC. EXPENSE 






s 


29.85 


283 LOAN PAYMENTS 






s 


45.00 


3,00 MEDICAL EXPENSE 






$ 


64.50 


310 CONTRIBUTIONS 






s 


30.00 


320 INTEREST PAID 






$ 


3 40.10 


33,0 TAXES PAID 






$ 


137.70 


340 MISC. (TAX DED.) 






% 


0.00 


BEGINNING BALANCE & INCOME 


S 


5996.47 






TOTAL EXPENSE 


$ 


2176.28 






END OF YEAR BALANCE 


$ 


3820.19 






CHECKBOOK BALANCE 


$ 


1410.07 






SAVINGS BALANCE 


5 


2 410.12 






CASH BALANCE ON HAND 


5 


3820.19 






****STATEMENT BALANCES 


#*#* 



generated. The report program will take 
quite a bit of time to load and calculate 
all your transactions. 

Variables and Strings 

The program listings have remark 
statements that will help you follow the 
program operation. Listed below are 
most of the strings and variables and 
what they are used for in the program: 



Expression 


Function 


AS[C) - E$(C) 


Data fields 


BAS - BF$ 


Data field descrip- 




tions 


MS, ADS 


Month and account 




descriptions 


PINS 


Account numbers 


MM, (IMS, 


Creates dates 


YY,YYS 


Used in reports and 




disk files 


TITLES 


Used for naming 




disk data files 


H 


H-0 print to screen/ 




H=l print to printer 


W 


Width of data fields 


U,I,D,CB 


Used in calculating 




income, expense and 




balance 


CH,SA,BA 


Checkbook and sav- 




ings balances and 




total 



Here are a few program tips you 
might find helpful. Line 14 sets the 
printer speed at 1200 baud, and there 
are several places where a CHRS(12) is 



used to form feed reports. You may need 
to modify these to get the program to 
run with your printer. To change ac- 
count descriptions, just change the 
DATA statements at the end of the 
program. To add or delete accounts, 
you must change the numbers for ADS 
and ANS in Line 10, change all values of 
Y used in the program, and add or delete 
DATA statements at the end of the 
program. Remember to change both 
program listings when you do this. 

If you want to change the width of 
your data fields, you can change the 
value of U in Line 14 of BUDGET. You 
may need to change the tabs in the 
printer routines if you do this, though. 
If you need to expand the number of 
transactions per month, just change the 
numbers for AS through E$ in Line 10 
and clear 50 bytes of memory for as 
many files as you increase — and re- 
member to do this to both programs. 

I hope you find this program useful 
in helping save money on taxes and 
managing your money better. I think 
the next project will be to modify this 
program to keep a running balance of 
my checking and savings accounts. 
That's what a computer is for, to do our 
work for us. Right? 

(Questions or comments regarding 
this program may be directed to the 
author at 1414 Thompson Ave., Evans- 
vitle, IN 47715. Please enclose an SASE 
when writing for a reply.) □ 
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Tandy Computers: 
Because there is 
no better value. ™ 



Tandy Color Computer 3 

Disk System 



Superb graphics and 
uncompromising performance 
at an incredible price. 

Here's a powerful, low-cost sys- 
tem that does it all. The Color 
Computer 3 (26-3334, $199.95) is 
a computer you can put to work 
right away for word processing, 
creating graphs and illustrations, 
spreadsheet analysis, budgeting- 
even writing your own programs! 
And it's expandable, too. 

Disk drive power and flexibility 

Get the most out of your Color 
Computer with the Color 
Computer Disk Drive (26-3133, 




$299.95). With this easy-to- 
connect drive, you can write your 
own sophisticated disk applica- 
tions or utilize ready-to-run 
software on popular 5 l k" disk- 
ettes. We offer a wide selection of 
software — the number of applica- 
tions is almost limitless. 



DeskMate 3™ seven-in-one 
software 

Best of all, we've got a low- 
priced software package that may 
be all you ever need: DeskMate 3 
(26-3262, $99.95). It's easy to use 
because there are no complicated 
commands to memorize, and the 
program itself actually guides you 
along with prompts at each step. 

DeskMate 3 is an integrated pro- 
gram including Text word process- 
ing, a general-purpose text-entry 
and editing program. Text per- 
forms search and replace, file 
merge, and block select, copy and 
delete. Ledger is a simple spread- 
sheet which includes an easy-to- 
use menu and automatic column 
formatting. Index Cards filing 
comes in handy as a personal fil- 
ing system — it actually eliminates 
mounds of paperwork and records. 
Index Cards also allows you to en- 
ter and edit data and perform sorts 
and searches. Using Paint, you 
can create colorful charts, graphs 
and designs. Calendar is a simple 
monthly planner that allows you 
to list "to do's" for any date. 
Calcidator has four functions for 
quick and easy calculations. With 
the included Telecom telecommu- 
nications program, you can access 
national information banks or 
send messages to other computers. 



See what you've been missing 

The Color Computer 3 offers 
better graphics than any previous 




Color Computer. Simply connect 
the Color Computer 3 to the 
CM-8 high-resolution monitor 
(26-3215,1299.95), and you can 
create incredibly detailed charts 
and graphs, make engineering 
drawings in vivid colors, or form 
simple sketches. Choose 160 X 192 
or 320 X 192-resolution with 16 
colors, or display 640 X 192 graph- 
ics and 4 colors. Extended BASIC 
language commands let you alter- 
nate screens, colors and back- 
grounds at a higher resolution, 
and you can choose from a palette 
of 64 colors. 

Come in today! 

Stop by your local Radio Shack 
and get the power of a full, disk- 
based system. The Color 
Computer 3 delivers professional 
performance— for less. 



Radio /hack 



Price apply at Radio Shack Computer Centers and participating stores and 
J^aters. DeskMate 3 cclecomrmirucatieios require modem. 



The Technology Store 

A DIVISION OF TANDY CORPORATION 



TV, 
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30 

58 . 

110 

140 

184 

224 

266 



.,58 298 . 

.222 338 . 

..40 368 . 

..91 400 . 

.181 442 . 

.225 END 
.148 



.178 
.37 
..39 
.117 
.193 
.216 



Listing I: BUDGET 

2 ■ *HOME FINANCIAL ANALYST* 

4 '* 4/85 BY DAN PIERSMA * 

5 '* 32K-ECB & 1 DISK * 

6 GOT0448 

8 'DIMENSION DATAFILES & DESCRIP 
TIONS 

1J3 CLEARS 5 J3 : DIMA$ ( Ij0 j3 ) ,B$(100) , 
C$(100) ,D$(100) ,E$(10ja) ,M$(12) ,A 
D$(25) ,AN$(25) 

12 'SET BAUD 12^0 & DEFINE NONVA 
RIABLE STRINGS 

14 W=8:POKE150,41:V$=" " + STRING$ 
(3,0,"*") :U$=STRING$(72,"-") :W$=C 
HR$(32) :BA$=" DAY (DD) ":BB$=" A 
CCOUNT# " :BC$=" AMOUNT ":BD$=" 
CHECK # ":BE$=" COMMENTS " : BF$ 
= "REC #" 
16 'ENTER DATE 

18 CLS:PRINT@9, "BUDGET MANAGER": 
PRINT "ENTER MONTH AND YEAR THAT 
YOU WILL BE ENTERING DATA ON. 
":INPUT"MONTH (MM) " ;MM: INPUT"Y 
EAR (YYYY) ",'YY$ 
2P IFMM<10RMM>12THEN18 
22 YY=VAL(YY$) :IFYY<19840RYY>198 
8THEN18 

24 'READ DESCRIPTIONS 
26 FORM=lT012:READM$(M) : NEXT: FOR 
AD=1T02 5;READAD$(AD) :NEXT 
28 'CREATE DISK FILE TITLE 
3j5 MM$=M$(MM) :TITLE$=MM$+"-"+YY$ 
32 L=LEN(TITLE$)/2:Z=2p7-L 

3 4 'CREATE MAIN MENU 

3 6 H=0:CLS: PRINT© 9, "BUDGET MAN AG 
ER" :PRINT" SELECT A NUMBER 
1-5" 

3 8 PRINTS 12 8, V$: PRINT" 1> FILE M 
AINTENANCE": PRINT" 2> SEARCH FIL 
E": PRINT" 3> GENERATE REPORTS":? 
RINT" 4> SAVE FILE": PRINT" 5> LO 
AD FILE":PRINTV$ 

4j3 LS=INKEYS 

42 L=VAL(L$) :IFL<1ORL>5THEN40 

44 ONL GOT048, 212, 276,392,42,0 

4 6 'FILE MAINTENANCE MENU 

48 CLS3:PRINT@3 2, " SELECT 
A NUMBER 1-4": PRINT? 16j3,V$: PRINT 



" 1> ADD AN ENTRY": PRINT" 2> DEL 

ETE AN ENTRY": PRINT" 3> EDIT OR 

VIEW A FILE": PRINT" 4> LIST CHAR 

T OF ACCOUNTS": PRINT" R> RETURN 

TO MAIN MENU":PRINTV$ 

5,0 L$=INKEY$ : IFL$ = "R"THENGOT03 6 

52 L=VAL(L$) :IFL<1ORL>4THEN5,0 

54 ONL GOTO58,112,12 8,2j3,0 

56 'ADD A FILE 

58 CLS: PRINTS 11, "ADD A FILE":GOS 

UB452:PRINT@136,"FILE NUMBER: "C 

+1: PRINT 

6J8 PRINTBA$":"; : LINEINPUTA$ (C) 

62 IFLEN (AS (C) )<(W)THENA$(C)=A$( 

C)+W$ELSE66 

64 GOT062 

66 PRINTBB$":"; : LINEINPUTB$ (C) 

68 IFLEN (B$(C) ) < (W) THENBS (C) =B$ ( 

C)+W$ELSE72 

7<S GOT068 

72 PRINTBC$" : » ; : LINEINPUTC$ (C) 

74 IFLEN (C$ (C) ) < (W) THENC$ (C) =C$ ( 

C)+W$ELSE78 

76 GOT074 

78 PRINTBD$" : " ; : LINEINPUTD$ (C) 

Sj3 IFLEN (D$(C))<(W)THEND$(C)=D$( 

C)+W$ELSE84 

8 2 GOTO80 

84 PRINTBES":"; : LINEINPUTE$ (C) 

86 IFLEN(E${C) )<(W*2)THENE$(C)=E 

$(C)+W$ELSE90 

8 8 GOT08 6 

9j3 IFLEN (A$ (C) )>(W)THEN58 

92 IFLEN(B$(C) )>(W)THEN58 

94 IFLEN (C$ (C) )>(W)THEN58 

96 IFLEN(D$(C) )>(W)THEN96 

98 IFLEN(E$(C) ) > (W*2 ) THEN58 

\$$ X=C:GOSUB4 4 6 

102 PRINT"IS THIS CORRECT <Y/N>" 

104 L$=INKEY$:IFL$="Y"THEN108 

106 IFL$="N"THEN58ELSE1,04 

108 C=C+l:GOT048 

lip 'DELETE A FILE 

112 CLS:PRINT@128,V$: PRINT" * 

DELETE A FILE *" :PRIN 
T" * PRESS <R> TO RETURN TO MENU 
*": PRINT" * OR <C> TO CONTIN 
UE *":PRINTV$ 
114 L$=INKEY$ : IFL$="C"THEN118 
116 IFL$="R"THEN36ELSE114 
118 INPUT"RECORD # TO BE DELETED 

: " ; D 
12 J3 FORX=(D-l)TOC-l 
122 A$(X)=A$(X+1) :B$(X)=B$(X+1) : 
C$(X)=C$(X+1) :D$(X)=D$(X+1) :E$(X 
)=E$(X+1) 

12 4 NEXTX:CLS:PRINT@2 3 2, "FILE DE 
LETED" : FORT=1TO800 : NEXTT: C=C-1 : G 
OT03 6 

12 6 'EDIT A FILE 
128 CLS:GOSUB4 52: PRINT: INPUT" EN 
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TER FILE NUMBER : " ;E: X=E-1 : IF(X) 


(X)+W$ELSE172 


> (C) THEN128ELSEG0SUB446 


17j3 GOT0168 


13j3 PRINT" EDIT WHICH FIELD 


172 IFLEN(C$(X) ) > (W) THEN128ELSE1 


<l-5>": PRINT" OR PRESS <R> T 


74 


RETURN" 


17 4 G0SUB44 6:G0T015j3 


132 L$=INKEY$:IFL$='»"THEN132 


17 6 PRINTBD$" : " ; : LINEINPUTD$ (X) 


134 IFL$="R"THEN36 


178 IFLEN (D$(X))<(W)THEND$(X)=D$ 


136 L=VAL(L$) :IFL<10RL>5THENGOTO 


(X)+W$ELSE182 


132 


18,0 GOT0178 


133 ONL GOT014P, 156, 166, 176,186 


182 IFLEN (D$ (X) ) > (W) THEN128ELSE1 


140 PRINTBA$" : " ; : LINEINPUTA$ (X) 


84 


142 IFLEN (A$(X) ) < (W) THENA$ (X) =A$ 


184 GOSUB446:GOTO15 i 


(X)+W$ELSE146 


18 6 PRINTBE$" : " ? : LINEINPUTE$ (X) 


144 GOT0142 


188 IFLEN (E$ (X) ) < (W*2 ) THENE$ (X) = 


146 IFLEN (A$ (X) ) > (W) THEN128ELSE1 


E$(X)+W$ELSE192 


48 


19^ GOT0188 


148 GOSUB4 4 6 


192 IFLEN(E$(X) ) > (W*2) THEN128ELS 


15^ PRINT" IS THIS CORRECT <Y/N>" 


E194 


152 L$=INKEY$:IFL$="Y"THEN3 6 


194 GOSUB446:GOTO15 ) 


154 IFL$="N"THEN13J3ELSE152 


19 6 GOT04 8 


156 PRINTBB$" : " ; : LINEINPUTB$ (X) 


19 8 'LIST CHART OF ACCOUNTS 


158 IFLEN (B$ (X) ) < (W) THENBS (X) =B$ 


2J30 CLSp:PRINT@192,"DO YOU WANT 


(X)+W$ELSE162 


A HARD COPY <Y/N> ?" 


16 jS GOT0158 


2J32 L$=INKEY$:IFL$="Y"THEN2J36 


162 IFLEN(B$(X) ) > (W) THEN128ELSE1 


2^4 IFL$="N"THEN2il8ELSE2^2 


64 


206 PRINT#-2,"LIST OF ACCOUNTS": 


164 GOSUB44 6:GOT015^ 


F0RY=1T025 : PRINT#-2 , AD$ (Y) :NEXTY 


166 PRINTBC$" : " ; : LINEINPUTC$ (X) 


:G0T036 


168 IFLEN (C$ (X) ) < (W) THENC$ (X) =C$ 


208 CLS; PRINTS 7, "CHART OF ACCOUN 



■P ^D y -p i i 6 ^ i -j) ■!) ^ li 

$ IF YOU PLAY LOTTO TO WIN $ 

$ ThEN YOU NEED $ 

$ LOT— PRO $ 

$ $ 

$ LOT-PRO IS SPECIFICALLY DESIGNED $ 

$ FOR THE COLOR COMPUTER $ 

$ and features; $ 

$ $ 

$ -A handicapping system for any $ 

$ pick-6 lotto $ 

$ $ 

$ -Choice of S wheeling systems to $ 

$ increase your winning probabilities $ 

$ $ 

$ ^OT-PRO SYSTEM 60 number selection $ 

$ routine option $ 

$ $ 

$ ONLY $25.95 (specify disk or tape) $ 

$ (Ca. residents add 6% sales tax) $ 

$ $ 

$ CJN Enterprises $ 

$ P.O. Box 40487 $ 

$ ___ Bakflfsfield, CA. 93384-0487 $ 

$ /j^^ (885}-836-1323 $ 

$ RAINBOW $ 

$ -"ffir* Invest in LOT-PRO. $ 

$ It might make YOU RICH! $ 

(printer needed) $ 

$*£ & <£ ^ ct t£ £t * £ <t ■ -CD ft 1 d"' d? 

f 1 $ f $ 9: $ 3) a) $ i|) f ifi 




CqCq 3 
ADDRESS FILE 
& 
ENVELOPE & LABEL ADDRESSING * 

Automatically addresses all standard envelopes or 
labels using a choice of size options for either! ! 

THESE FILES KAY BE USED FOR RECORDS OTHER THAN 
ADDRESSESS!!! IMAGINATION IS ALL THAT'S NEEDED! 1 ! 

There are 15 files that hold IS records per tile! This 
TOTALS 27B ADDRESSES , or records that can be stored 
per disk!! They are divided alpabeticaily into the 15 
files where they are alphabetically arranged! Each 
record can hold 8 lines of 64 characters per line!! 

WELL DOCUMENTED WHILE RUNNING ♦ INSTRUCTION BOOKLET! 
18 MENU DRIVEN ROUTINES TO FULL* MANIPULATE FILES AND 
RECORDS INCLUDING SEARCH; UFTJATE AND DELETE!! 
UNLIMITED STORAGE CAPACITY WITH BACKUP DISKS KW RAKE! 
REQUIRES : CoCa 3; Disk Drive! Printer; Monitor OR TV! 

R.J.F. SOFTWARE; R.R. #2? WHITE LAKE, ONTARIO; KOA 3L0 
PHONE (613) 623-7824 

This program has been sealed and certified by RAINBOW 
MAGAZINE' SEE REVIEW IN THE MARCH/ 88. ISSUE 1 ! 

$14,95 U.S. FUNDS plus 53,015 Shipping and Handling, 
Visaj Money Order or Personalized Check accepted! 
Ontario Residents add 72 Provincial Sales Tax. 



CoCo 3 WORD PROCESSOR for a DMP105 or DHP186 PRINTER 
and DISK DRIVE. Can be used with a aonitor OR TV! ' ! 
Underlining! bold and all font styles + such »ore!!!!! 
A SUPER WORD PROCESSOR ON A 64 COLUMN SCREEN! ! ! 
$19.95 O.B. FUNDS plus $3*8fl Snipping snd Handling. 
Ontario residents add 11 Provincial Saies lax. 



April 1938 THE RAINBOW 117 



TS" : F0RY=1T025 : PRINTAD$ (Y) :FORT= 

1TO500 : NEXTT : NEXTY : G0T03 6 

21J2J 'SEARCH FUNCTION 

212 CLS: PRINT" SEARCH FUN 

CTION" 

214 PRINT"DO YOU WANT A HARD COP 

Y <Y/N>" 

216 H$=INKEY$:IFH$="N"THEN224 

218 IFH$="Y"THEN220ELSE216 

220 H=l 

222 IFH=1THENGOSUB4 40 

224 LINE INPUT "DATA TO LOOK FOR:" 

;T$ 

226 IFLEN(T$)<(W)THENT$=T$+W$ELS 
E230 

228 GOT0226 

23)3 PRINT: PRINT" SELECT FIELD TO 
SEARCH" 

232 PRINT" 1> ";BA$: PRINT" 2> "; 
BB$: PRINT" 3> " ;BC$ : PRINT" 4> »; 
BD$: PRINT" R> RETURN TO MAIN MEN 
U" 

234 L$=INKEY$:IFL$=""THEN234 
23 6 IFL$="R"THEN3 6 
238 L=VAL(L$) 

240 IFL<10RL>4THEN234ELSE242 
242 ONL 0010244,254,258,262 
244 FORX=0TOC-1:IFA$(X)=T$THENGO 
SUB266ELSE246 
246 NEXTX 

248 CLS: PRINTS 2 3 2, "NO MORE FILES 
" : FORT=1TO800 : NEXTT 
2 5,0 IFH=1THENPRINT#-2,CHR$(12) 
2 52 G0T03 6 

254 FORX=0TOC-1:IFB$(X)=T$THENGO 
SUB266ELSE256 
256 NEXTX:GOT02 4 8 

258 FORX=0TOC-1:IFC$(X)=T$THENGO 
SUB2 6 6ELSE260 
2 60 NEXTX:G0T02 4 8 

262 FORX=0TOC-1:IFD$ (X)=T$THENGO 
SUB266ELSE264 
2 64 NEXTX:GOT0248 
2 66 IFH=1THENGOSUB270ELSE272 
2 68 RETURN 

270 PRINT#-2,A$(X)TAB(10)B$(X)TA 
B(20) »'$"C$(X)TAB(30)D$(X)TAB(40) 
E$ (X) TAB (59 ) X+l : RETURN 
272 GOSUB446:FORT=1TO800: NEXTT :R 
ETURN 

27 4 'REPORT SETUP & MENU 
2 76 CLS J3: PRINTS 192, "DO YOU WANT 
A HARD COPY <Y/N> ?" 
278 L$=INKEY$ : IFL$="Y"THENH=1 :G0 
T0282 

280 IFL$="N"THEN282ELSE278 
282 CLS3: PRINT" REPORT GE 
NERATION" : PRINT@160 , V$ : PRINT" 1> 
REPORT FOR EACH ACCOUNT #" : PRIN 
T" 2> REPORT OF ACCOUNT TOTALS": 
PRINT" 3> REPORT OF ALL TRANSACT 
IONS (OR LIST ALL FILES BY 



#)": PRINT" R> RETURN TO MAIN MEN 

U":PRINTV$ 

284 F0RY=1T025:AN$(Y)=MID$(AD$(Y 

) ,1,3) : NEXTY 

286 L$=INKEY$:IFL$="R"THEN36 

288 L=VAL(L$) :IFL<10RL>3THEN2 8 6 

2 90 ONL GOT0294,33 8,386 
292 'REPORT EACH ACCOUNT 

294 IFH=lTHENGOSUB440:PRINT#-2 

296 F0RY=1T025 

298 IFH=1ANDY=6THENGOSUB308:GOTO 

310 

300 IFH=1ANDY=10 THENGOSUB308 : GO 

TO 3 10 

302 IFH=1ANDY=17THENGOSUB308:GOT 

0310 

304 IFH=1ANDY=21THENGOSUB308:GOT 

0310 

306 GOTO310 

308 PRINT#-2,CHR$(12) :GOSUB440:P 

RINT# -2: RETURN 

310 IFH=lTHENPRINT#-2 , TAB ( 22 ) AD$ 

m 

312 FORX=0TOC-1 

314 IFAN$(Y)=MID$(B$(X) ,1,3)THEN 
316ELSE322 

316 IFH=1THENG0SUB2 66 
318 IFH=0THENGOSUB272 
320 U=U+VAL(C$(X) ) 
322 NEXTX:IFU=0THEN3 24ELSE32 8 
324 IFH=lTHENPRINT#-2 
326 GOT0332 

328 IFH=1THENPRINT#-2,"T0TAL FOR 
ACCOUNT"TAB ( 20) : PRINT#-2 , USING" 
$.#####. ##";U:PRINT#-2:U=0 

3 30 IFH=0THENPRINT"TOTAL FOR ACC 
OUNT ";AN$(Y);" $"U:U=0: F0RT=1T0 
1000: NEXTT 

332 NEXTY:IFH=1THENPRINT#-2,CHR$ 

(12) 

334 GOT03 6 

33 6 'CHART OF ACCOUNTS 

338 IFH=1THENPRINT#-2,TAB(25)TIT 

LE$;" CHART OF ACCOUNTS" : PRINT#- 

2 : PRINT#-2 ,U$ : PRINT#-2 , "ACCOUNT 

#"TAB(32) "CREDIT"TAB(52) "DEBIT": 

PRINT#-2,U$ 

3 40 INPUT "ENTER CHECKBOOK BALANC 

E";CH: INPUT" ENTER SAVINGS BALANC 

E ";SA:BA=SA+CH 

342 CLS:FORY=1TO5:V=30:GOSUB3 48 

3 44 I=U+I : U=0 : NEXTY 

346 V=50:GOTO3 60 

348 FORX=0TOC-1 

350 IFAN$(Y)=MID$(B$(X) ,1,3) THEN 

U=U+VAL(C$(X) ) 

3 52 NEXTX 

354 IFH=1THENPRINT#-2,AD$(Y)TAB( 

V) :PRINT#-2,USING"$#####.##" ;U 

356 IFH=0THENPRINTAN$(Y) ;" $";U 

3 58 RETURN 

3 60 FORY=6T02 5:G0SUB348 
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3 62 D=D+U:U=0:NEXTY 

364 CB=I-D:IFH=0THEN3 66ELSE374 

3 66 PRINT "TOTAL INCOME $";I 

: PRINT "TOTAL EXPENSE $";D:PR 

INT" CASH BALANCE $" ;CB:PRIN 

T 

368 PRINT"CHECKBOOK BALANCE $";C 

H: PRINT "SAVINGS BALANCE $"?SA: 

PRINT"CASH BALANCE $";BA 

370 IFINT(BA)=INT(CB)THENPRINT" 

******STATEMENT BALANCES******"E 

LSEPRINT"??DOES NOT BALANCE PLEA 

SE REDO??" 

372 FORT=1TO1000:NEXTT:GOTO3 8 2 

374 IFH=lTHENPRINT#-2 : PRINT#-2 , " 

TOTAL CREDITS "TAB (30) :PRINT#-2,U 

SING"$#####.##";I:PRINT#-2,"LESS 

TOTAL DEBITS"TAB(30) :PRINT#-2,U 
SING"$#####.##";D:PRINT#-2,"CASH 

BALANCE"TAB(30) : PRINT#-2 , USING" 
$#####. ##";CB:PRINT#-2 
376 PRINT#-2,"CHECKBOOK BALANCE" 
TAB (30) :PRINT#-2,USING"$# ####.## 
";CH: PRINT #-2, "PLUS SAVINGS BALA 
NCR "TAB (30) :PRINT#-2,USING"$#### 
#.##";SA: PRINT #-2, "CASH BALANCE" 
TAB (30) :PRINT#-2,USING"$# ####■## 
"?BA: PRINTS -2 

378 IFINT(CB)=INT(BA)THENPRINT#- 
2 , TAB ( 2 ) " * * * * * STATEMENT BALANCE 
S*****"ELSEPRINT#-2 ,TAB(20) "??TO 
TALS DO NOT ADD PLEASE REDO??" 
380 PRINT#-2,CHR$(12) 
3 82 D=0:I=0:GOTO3 6 
384 'LIST OF DATA FILES 
386 IFH=1THENGOSUB440:GOTO4 4 2 
388 FORX=0TOC-1:GOSUB446:FORT=1T 
09 50 : NEXTT : NEXTX : G0T03 6 
3 90 'SAVE TO DISK 
3 92 CLS3:PRINT@19 2," INSERT DATA 

DISK IN DRIVE #0 " : PRINT" PRESS 

<C> TO CONTINUE OR <R> TO RE 
TURN TO MAIN MENU. " 

394 L$=INKEY$:IFL$="C"THEN398 
396 IFL$="R"THEN36ELSE394 
398 PRINT"SAVE TO DISK-ARE YOU S 
URE <Y/N>" 

400 L$=INKEY$ : IFL$="Y"THENGOTO40 
4 

402 IFL$="N"THENGOTO36ELSE400 
404 CLS : PRINTS 140 , "SAVING" : PRINT 
@Z, TITLES :PRINT@2 67, "DATA FILE" 
406 OPEN"0", #1, TITLE$ 
408 X=0 

410 IFA$(X)=""THEN416 
412 WRITE#1,A$(X) ,B$(X) ,C$(X) ,D$ 
(X) ,E$(X) 

414 X=X+1:GOTO410 
416 CLOSE#l:GOT036 
418 'LOAD FROM DISK 



4 20 CLS 3: PRINTS 19 2," INSERT DATA 
DISK IN DRIVE #0": PRINT" PRESS 
<C> TO LOAD DATA OR <R> TO RET 

URN TO MAIN MENU. " 

422 L$=INKEY$:IFL$="C"THEN42 6 
424 IFL$="R"THENGOT036ELSE422 

42 6 CLS;PRINT@140, "LOADING" : PRIN 
T@Z , TITLES : PRINT@2 67 , "DATA FILE" 

423 OPEN "I", #1, TITLES 
430 X=0 

432 INPUT #1,A$(X) ,B$(X) ,C$(X) ,D 

$(X),E$(X) ;X=X+1 

434 IFE0F(1)=-1THEN436ELSE432 

43 6 CLOSE #1:C=X:N=C:G0T03 6 
438 'PRINTER SUBROUTINE 

440 PRINT#-2,TAB(32)TITLE$:PRINT 
#-2 , U$ : PRINT #-2 , BA$TAB ( 10 ) BB$TAB 
(20) BC$TAB(30)BD$TAB(40)BE$TAB(5 
9 ) BF$ : PRINT#-2 , U$ : RETURN 

44 2 FORX=0TOC-l:PRINT#-2,A$(X)TA 
B(10)B$(X)TAB(20)"$"C$(X)TAB(30) 
D$(X)TAB(40)E$(X)TAB(59)X+1:NEXT 
X:PRINT#-2,CHR$(12) :GOT03 6 

44 4 'PRINTER SUBROUTINE 

446 CLS: PRINT" THIS IS FILE 

NUMBER "X+l : PRINT : PRINTA$ (X) : PRI 

NTB$(X) :PRINTC$(X) :PRINTD$(X) :PR 

INTE$(X) : RETURN 

448 PCLEAR1:GOTO10 

450 'DATA OVERFLOW SUBROUTINE 

452 PRINT" FIRST 4 ENTRIES ARE L 

IMITED TO 8 CHARACTERS EACH, AN 

D COMMENTS ARE LIMITED TO 16 CHA 

RACTERS . " : RETURN 

454 'DATA DESCRIPTIONS 

456 DATA JAN, FEB, MAR, APR, MAY, JUN 

, JUL, AUG, SEP, OCT, NOV, DEC, 100 CAS 

H BALANCE, 110 EARNED INCOME, 120 

INTEREST INCOME, 130 MISC. TAXABL 

E INCOME, 140 NON-TAXABLE INCOME, 

200 FEDERAL WITHOLDING, 201 FICA, 

202 STATE WITHOLDING , 2^3 LOCAL W 

ITHOLDING 

458 DATA 210 GROCERY EXPENSE, 220 

WATER, 2 30 MORTGAGE, 240 GAS & EL 
ECTRIC,2 50 TELEPHONE, 2 60 CAR EXP 
ENSE,270 INSURANCE 

460 DATA 2 80 HOUSE REPAIRS, 281 A 
NNUITY,2 82 MISC. EXPENSE, 283 LOA 
N PAYMENTS, 300 MEDICAL EXPENSE, 3 
10 CONTRIBUTIONS, 320 INTEREST PA 
ID, 330 TAXES PAID, 340 MISC. (TAX 

DED. ) 
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We Cannot Tell A Lie 

Lonnie's gone nuts!! He's chopped down prices on 
Rainbow Bookshelf items! 




The Complete Rainbow Guide to OS-9 

Authors Dale Puckett and Peter Dibble show how to 
take advantage of OS-9's multitasking and multiuser 
features. An easy-to-read, step-by-step guide packed 
with hints, tips, tutorials and free software in the form 
of program listings. 

Book $12.95, Disk Package $19.95 (2 disks, book not 
included) — a savings of up to 36%! 

SAVE 38%! Book and disks only $29.95 



Q 



The Rainbow Book of Simulations 

20 award-winning entries from THE RAINBOW'S first 
Simulations contest. You are a Civil War Commander, 
an air traffic controller, a civil defense coordinator, or 
a scientist on Mars . . . your wits are on the line. 
Book $3.50, Tape $3.50 — a savings of 65%! 

SAVE 70%! Book and tape only $6 



O 




The Second Rainbow Book of Simulations 

The 16 winners from our second Simulations contest. 
Fly through dense African jungle, bull your way down 
Wall Street, lead a bomb squad, or try your hand at 
Olympic events. Test your skills and talents. 
Book $4.95, Tape or Disk $4.95 — a 50% savings! 

SAVE 55%! Book and tape only $8.95 
SAVE 57%! Book and disk only $8.95 
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The First Rainbow Book of Adventures 

Contains 14 winning programs from our first Adven- 
ture contest. Includes Sir Randolph of the Moors, 
Horror House, One Room, Dr. Avaloe and more. Plus 
hints, tips on solving Adventures. 
Book $2, Tape $2 — a 43% savings! 



SAVE 50%! Book and tape only $3.50 



Q 




The Second Rainbow Book of Adventures 

Featuring 24 of the most challenging Adventure 
games ever compiled. Meet the Beatles and battle the 
Blue Meanies, find a hidden fortune, or win the heart 
of a mysterious princess. Ring Quest, Secret Agent 
Man, Dark Castle, Curse of Karos and more! 
Book $6.95, Tape $6.95 — a 50% savings! 

SAVE 57%! Book and tape only $11.95 



O 



The Third Rainbow Book of Adventures 

The excitement continues with 19 new Adventures. 
Discover backstage intrigue at the London Theatre, 
attempt a daring space rescue, or defeat evil in the year 
2091 as a genetic android. Evil Crypt, Spymaster, Time 
Machine, The Amulet, and that's only the beginning! 
Book $6.95. Tape $6.95, Two-Disk Set $7.95 — a 
savings of up to 47%! 

SAVE 45%! Book and tape only $11.95 
SAVE 52%! Book and disk only $12.95 
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The Rainbow 
Introductory Guide to Statistics 

Dr. Michael Plog and Dr. Norman Stenzel give a solid 
introduction to the realm of statistical processes and 
thinking for both the beginner and the professional. 
(80-column printer required.) 
Book $2.95, Tape or Disk $2.95 — a savings of 54%! 

SAVE 62%! Book and tape or disk only $4.95 



Name 

Address . 

City 

State . - 

D Payment Enclosed, or □ Charge to: 
□ VISA D MasterCard □ American Express 

Account Number 

Card Expiration Date . 

Signature 



.ZIP 



$19.95. 
- S 0. 5 $ 2.00 . 



) 7.05 | -3-S ft $ 2.00 . 

S1S.M i 7.00 $ 3.50 . 

ffftSS-j 6.95 . 

fro? fin, fr-n.fic til QE 

QpE.f Anl ty I r.OT ^1 1. D J . 
■ I I ."0 ^) y. lJlJ . 

9 M5WB" if 1 .1)0 - 

SB1.30 S15.05 $11.95. 
S gO.M 310: 9 5 $12.95 . 

V tf-JO $ C..3U . 

* 9. JO 5 l.sj _ 

$12.90 $ B.Q 5 $ 4.95 . 



Piease send me: 

□ The Rainbow Book ot Simulations (first) S 9. 9 5 $ 3,50 . 
D Rainbow Simulations Tape(lirsi| $ 9.35 $ 3.50 . 
D First Simulations Package $ 1 9 . 9 $ 11.05 $ 6.00 . 
D The Second Rainbow Book ot Simulations $ 0.95 $ 4.95 . 
D Second Rainbow Simulations Tape $ 0.9 5 $ 4.95 . 

□ Second Rainbow Simulations Disk -$1ft95-$ 4.95 . 
U Second Simulations Package with Tape ■ $- 1 9 . 9 -$ 12. 3S' $ 8.95 . 
O Second Simulations Package with Disk { 3 0.90 -$ 4 3 t 95- $ 0.95 . 
D The Complete Rainbow Guide to OS-9 $1 9 . 9 5 $16.9 5 $1 2.95 . 

□ Rainbow Guide to OS-9 Disk Sel(? disks) ■$3Hfr $19.95 . 
D Rainbow Guide to OS-9 Package $ 47. 9 5 $3 6 .0 5 $29.95 . 

□ The Windows & Applications Disk for 
The Complete Rainbow Guide 
to OS-9 Level II, Vol. I 

□ The Rainbow Book ot Adventures (firsl) 
P Rainbow Adventures Tape (first) 

□ First Adventure Package 
D The Second Rainbow Book ot Adventures 

□ Second Rainbow Adventures Tape 

□ Second Adventure Package 
O The Third Rainbow Book of Adventures 
O Third Adventures Tape 

□ Third Adventures Disk Set [2 disks) 
D Third Adventure Package with Tape 
D Third Adventure Package with Disk 
O Introductory Guide to Statistics 
D Guide to Statistics Tape or Disk (indicate choice) 

□ Guide to Statistics Package 
(indicate choice of tape or disk) 
Add $1.50 per book Shipping and Handling in U.S. 
Outside U.S., add $4 per book 
Kentucky residents add 5% sales tax 

(Allow 8 to 8 «Wl9 tof delivery) Total 



Mail to: Rainbow Bookshelf, The Falsoft Building, P.O. Box 385, 
Prospect, KY 40059. To order by phone [credit card orders only) 
call (800) 847-0309, 8 a.m. to 5 p.m. EST. For other inquiries call 
(502) 228-4492. 

Please note: The tapes and disks olfered by The Rainbow Bookshelf are not stand-alone products. Thai is. 
Ihey are intended lo be an adjunct ano complement to Ihe books. Even if you buy the lape or disk, you will 
still need the appropriate book lor loading and operating instruciions. OS-9" Is a registered trademark ol the 
Mieroware Systems Corporation 
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68 .. 
102 . 
130 . 
150 . 
170 . 
END 
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Listing 2: REPORT 



2 ' * YEARLY REPORT PROGRAM * 

4 ' * FOR USE WITH * 

6 •* HOME FINANCIAL ANALYST * 

8 '* 4/85 BY DAN FTERSMA * 

10 GOT018 4 

12 'DIMENSION DATAFILES & DESCRI 

PTIONS 

14 CLEARS 500 : DIMA$ ( 10 ) ,B$(100) , 

C$(100) ,D$<100) ,E$<100) ,M$(12) ,A 

D$(25) ,AN$(25) ,AN(25) 

16 'SET BAUD 1200 & DEFINE NONVA 

RIABLE STRINGS 

18 POKE150,41:U$=STRING$(80,"-") 

:BG$=STRING$(10, ".") :BP$=" BUDGET 

PLAN FOR .../•■•/•■■" 
20 'READ DESCRIPTIONS 
22 F0RM=1T012:READM$(M) : NEXT: FOR 
Y=1T02 5:READAD$ (Y) :NEXT 
2 4 'ENTER DATES 

26 CLS:PRINT@9, "ANNUAL REPORT" :P 
RINT: PRINT" ENTER BEGINNING MONT 
H AND YEAR AND ENDING MONTH AND 

YEAR" 

2 8 PRINT :PRINTV$; INPUT" BEGINNIN 
G MONTH (MM) "?BM: INPUT" BEGINNI 
NG YEAR (YYYY) " ; BY $: INPUT" ENDIN 
G MONTH (MM) ";EM:INPUT" ENDI 
NG YEAR (YYYY) ";EY$ 

30 EY=VAL(EY$) :BY=VAL(BY$) 

3 2 IFBM<10RBM>12THEN2 6 
3 4 IFEM<10REM>12THEN2 6 

36 IFBY<19840RBY>1988THEN26 

3 8 'CREATE REPORT TITLE 

40 IFEY<(BY)OREY>1988THEN26 

42 RTITLE$=M$(BM)+"-"+BY$+" TO " 

+M$(EM)-h"-"+EY$ 

44 IFEM<(BM)THENEM=(EM)+12 

46 'PRINT BUDGET PLANNING FORM 

48 CLS:PRINT@1 63, "WOULD YOU LIKE 

TO PRINT A BUDGET PLANNIN 
G FORM <Y/N>" 

50 L$=INKEY$:IFL$="Y"THEN54 
52 IFL$="N"THEN76ELSE50 
54 CLS:PRINT@201,"HARDCOPY ONLY" 
:PRINT"IF PRINTER IS READY PRESS 

<P> PRESS <C> TO SKIP TO REPO 
RTS" 
56 L$=INKEY$:IFL$="C"THEN76 



58 IFL$="P"THEN60ELSE56 
60 CLS : PRINT0204 , "PRINTING" : PRIN 
T" BUDGET PLANNING FORM" 
62 PRINT#-2,U$:PRINT#-2,TAB(28) " 
BUDGET PLANNING FORM" : PRINT#-2 ,U 
$ : PRINT#-2 : PRINT#-2 , BP$TAB ( 40) BP 
$:PRINT#-2 

64 FORY=1TO5:GOSUB70; NEXTY 
66 PRINT#-2,U$:PRINT#-2 
68 F0RY=6TO2 5 : GOSUB70 : NEXTY : GOTO 
72 

70 PRINT#-2,AD$(Y)TAB(25)BG$TAB< 
40 ) AD$ ( Y ) TAB ( 65 ) BG$ : PRINT#-2 : RET 
URN 

72 PRINT#-2,CHR$(12) 
7 4 "GENERATE REPORTS 
76 CLS0: PRINT© 160," REPORT 
GENERATION" :PRINT"PRINT HARD CO 
PY REPORTS <Y/N> ?": PRINT" PRE 
SS <E> TO END PROGRAM" 
78 L$=INKEYS:IFL$="Y"THENH=l:GOT 
084 

80 IFL$="N"THEN84 
82 IFL$="E"THENENDELSE78 
84 INPUT"ENTER COST OF LIVING RA 
TE FOR BUDGET PROJECTIONS IN % 

";I:I=(I/100)+1 

86 INPUT"ENTER CHECKBOOK BALANCE 

";CH:INPUT"ENTER SAVINGS BALANCE 

" ; SA : BA=SA+CH 
88 F0RY=1T025:AN$(Y)=MID$(AD$(Y) 
,1,3) : NEXTY 

90 TITLE$=M$ (BM) +"-"+BY$ : GOSUB17 
2 :FORX=0TOC-1 : IFAN$ (1) =MID$ (B$ (X 
) ,1,3)THEN92ELSE94 
92 AN(1)=VAL(C$ (X) ) 
9 4 NEXTX 

96 FORYY=(BM)TO(EM) 
98 IFYY>12THEN100ELSE102 
100 S= (YY) -12 : TITLE$=M$ (S ) +"-"+E 
Y$: GOTO 104 

102 TITLE$=M$(YY)+"-"+BY$ 
104 GOSUB172:CLS:PRINT@195, "CALC 
ULATING ACCOUNT TOTALS" 
106 FORY=2T025 
108 FORX=0TOC~1 

110 IFAN$(Y)=MID$(B$(X) ,1,3) THEN 
AN (Y) =AN (Y) +VAL(C$ (X) ) ELSE112 
112 NEXTX: NEXTY :NEXTYY 
114 IFH=0THEN116ELSE118 
116 F0RY=1T025:PRINTAD$(Y) : PRINT 
USING"$#####.##";AN(Y) : F0RT=1T09 
00 : NEXTT: NEXTY : GOT0124 
118 PRINT#-2,TAB(30)RTITLE$:PRIN 
T#-2 : PRINT#-2 ,U$ ; PRINT#-2 ,TAB(3 ) 
"ACCOUNT NUMBER"TAB(37) "CREDIT"T 
AB (52 ) "DEBIT" : PRINT#-2 , US : PRINT# 
-2 

120 F0RY=1T05:PRINT#-2,AD$(Y)TAB 
(35) :PRINT#-2,USING"$#### #.##", -A 
N(Y) : NEXTY 
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122 FORY=6T02 5:PRINT#-2,AD$(Y)TA 
B(50) :PRINT#-2,USING"$#####.##"; 
AN(Y) :NEXTY 

12 4 F0RY=1T05:TI=AN(Y) +TI:NEXTY 
12 6 F0RY=6T025:TE=AN(Y)+TE: NEXTY 

12 8 CB=TI-TE:IFH=0THEN130ELSE140 
130 CLS : PRINTS 160, "TOTAL INCOME 

$";TI: PRINT "TOTAL EXPEN 
SE $";TE: PRINT "YEAR END 

CASH BALANCE $";CB 
132 PRINT" CHECKBOOK BALANCE 
$";CH: PRINT "SAVINGS BALANCE 

$";SA:PRINT"TOTAL CASH ON HAND 
$";BA 
134 IFINT(BA)=INT(CB)THEN13 6ELSE 
138 

13 6 PRINT" ******STATEMENT BALAN 
CES******":FORT=1TO1500:NEXTT:GO 
T0154 

138 PRINT "STATEMENT OUT OF BALAN 

CE - REDO": END 

140 PRINT#-2 : PRINT#-2 , "BEGINNING 

BALANCE & INCOME"TAB(35) : PRINT* 
-2,USING"$### ##.##" ;TI:PRINT#-2, 
"TOTAL EXPENSE"TAB(35) :PRINT#-2, 
USING"$#####.##*';TE 
142 PRINT#-2,"END OF YEAR BALANC 
E"TAB(35) :PRINT#-2,USING"$#####. 
##" ;CB 
144 ' PRINT#-2 : PRINTS -2 , "CHECKBOOK 

BALANCE "TAB (35) : PRINT#-2 , USING" 
$#####. ##";CH:PRINT#-2, "SAVINGS 
BALANCE"TAB{35) : PRINT#-2 , USING" $ 
#####.##« ;SA:PRINT#-2 , "CASH BALA 

nce on hand"tab(35) :print#-2,usi 

ng»$#####.##";ba 

146 ifint(ba)=int(cb)then148else 

150 

148 PRINT#-2:PRINT#-2,TAB(27)"** 
**STATEMENT BALANCES****" : PRINT# 
-2,CHR$(12) :GOT0154 



One- Liner Contest Winner . . . 

Run Picoco to see a "modern art generator." 

The listing: 

PMODE3:SCREEN1,1:PCLS:FOR R=1T 
O10:X=RND(256) :Y=RND(192) : X1=RND 
(256) :Y1=RND(192) :X2=RND(256) :Y2 
=RND(19 2) :PX=(X+X1+X2)/3:PY=(Y+Y 
1+Y2)/3:PC=RND(4) :LINE(X, Y) -{XI, 
Yl) ,PSET:LINE-(X2,Y2) , PSET:LINE- 
(X,Y) , PSET; PAINT (PX,PY) ,PC,0:NEX 
TR: FORW=1TO500 : NEXTW: GOTO0 

Lonny Guilford 
Lompoc, CA 

(For this winning one-liner contest entry, the author has been sent copies 
of both The Second Rainbow Book of Simulations and its companion The 
Second Rainbow Simulations Tape.) 



150 IFH=1THENPRINT#-2,"********S 

TATEMENT DOES NOT BALANCE. PLEAS 

E FIND YOUR ERROR AND REDO****** 

**" :END 

152 'FORMULATE BUDGET PROJECTION 

S 

154 A=(EM)-(BM-1) 

156 FORY=2T025:AN(Y)=AN(Y)/A:AN{ 

Y)=AN(Y)*I: NEXTY 

158 IFH=0THEN160ELSE162 

160 CLS: PRINT "MONTHLY BUDGET PRO 

JECTIONS" : FORY=2T025 : PRINTAD$ (Y) 

:PRINTUSING" $#####.##"; AN (Y) : FOR 

T=1TO900 : NEXTT : NEXTY : GOT016 8 

162 PRINT# -2, TAB (28) "MONTHLY BUD 

GET PROJECTIONS" :PRINT#-2: PRINT # 

-2,U$:PRINT#-2, TAB (3) "ACCOUNT NU 

MBER"TAB(37) "CREDIT "TAB (52) "DEBI 

T" : PRINT #-2 ,U$ : PRINT#-2 

164 FORY=2T05:PRINT#-2,AD$(Y)TAB 

(35) :PRINT#-2, USING"$#####. ##» ; 

AN(Y) : NEXTY 

166 FORY=6T025 : PRINT#-2 , AD$ (Y) TA 

B(50) :PRINT#-2, USING"$#####.##" 

;AN(Y) : NEXTY :PRINT#-2:PRINT#-2, " 

MULTIPLIED BY"I" FOR RISE IN COS 

T OF LIVING ": PRINT #- 2, CHR$ ( 12) 

168 END 

170 'LOAD FILES FROM DISK SUBROU 

TINE 

172 FORX=0TOC-1 : A$ (X) =" " : B$ (X) =" 

" : C$ (X) =" " : D$ (X) =" " : E$ (X) ="" : NEX 

TX: CLS : PRINT© 140 , "LOADING" : PRINT 

@203,TITLE$:PRINT@2 67, "DATA FILE 
ii 

174 OPEN "I", #1, TITLES 

17 6 X=0 

178 INPUT #1,A$(X) ,B$(X) ,C$(X) ,D 

$(X) ,E$(X) :X=X+1 

180 IFE0F(1)=-1THEN182ELSE178 

18 2 CLOSE #1:C=X:RETURN 
18 4 PCLEARl:GOT014 

18 6 DATA JAN, FEB, MAR, APR, MAY, JUN 
, JUL, AUG, SEP, OCT, NOV, DEC, 100 CAS 
H BALANCE ,110 EARNED INCOME, 120 
INTEREST INCOME, 130 MISC. TAXABL 
E INCOME, 140 NON-TAXABLE INCOME, 
200 FEDERAL WITHOLDING, 201 FICA, 
202 STATE WITHOLDING, 203 LOCAL W 
ITHOLDING 
188 DATA 210 GROCERY EXPENSE, 2 20 

WATER, 2 30 MORTGAGE, 2 40 GAS & EL 
ECTRIC,2 50 TELEPHONE, 2 60 CAR EXP 
ENSE , 2 70 INSURANCE 

190 DATA 280 HOUSE REPAIRS, 281 A 
NNUITY,282 MISC. EXPENSE, 283 LOA 
N PAYMENTS, 300 MEDICAL EXPENSE, 3 
10 CONTRIBUTIONS, 3 20 INTEREST PA 
ID, 3 30 TAXES PAID, 3 40 MISC. (TAX 

DED. ) 
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CoCo 3 RGB Monitor \ 0i 



utility to make color selection easier 



PALETTEable 
Color Mixing 




By H. Allen Curtis 



D 



ecisions, decisions, decisions, vide a total of 64 color combinations 

The CoCo 3 offers a "palette" of (4*4*4 = 64). 

64 colors from which you can The shades of color vary from dark 



select up to 16 for your graphics mas- 
terpieces, and that's a selection often 
difficult to make. To facilitate decision 
making, 1 wrote the program Color mix. 

Color mix is a color editor that aids 
your selection process by mixing colors 
to your prescription. Also, it provides 
a screen or hard copy printout of your 
color selections, saves them to disk or 
tape, and loads them back from disk or 
tape for emendation. The saved selec- 
tions are recorded in BASIC program 
form, ready for merging with a larger 
program. 

Colormix selects its colors via a 
"color mixer," which consists of three 
"color-meters. " Each of the colors (red, 
green and blue) has one meter, referred 
to as the R, G or B meter. There are four 
values (0, 1,2 and 3) on each of the 
scales of the three color meters. Since 
each color meter provides four color 
values, the three meters together pro- 

H. Alien Curtis lives in Williamsburg, 
Virginia. He is interested in 1 7th and 
18th century history and enjoys hiking 
through the colonial capital. He balan- 
ces past and present with his computer 
work. 



to tight as they progress from the low 
to the high ends of the color meters. 
Each color meter controls the amount 
of intensity of its color red, green or blue 
— to be used in the selected color 
combination. 





Colormix was written for use with an 
RGB monitor. After you have typed the 
listing and saved it, run Colormix to 
produce a Mode 2 (320-by-!92 resolu- 
tion, 16-color) screen. At the lop of the 
screen are 16 slots containing the stand- 
ard colors resulting from the execution 
of PALETTE: RGB. Below the slots on the 
left is the color mixer and on the right 
is a command menu. At the bottom of 
the screen is a message board to prompt 
you in the proper operation of Color- 
mix. 
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The initial message on the board is "0- 
9" or "A-J." The color slots are num- 
bered in hexadecimal from to F, with 
A, B, C, D, E and F representing 10, II, 
12. 13, 14 and 15, respectively. The 
commands on the menu board — Load, 
Save, Lprint and Print — are labelled 
G, H, I and J, respectively. 

The initial message means you can 
press one of the number keys through 
9 or letter keys A through F to send the 
color in the corresponding slot to the 
mixer. The message also means you may 
alternatively select one of the menu 
commands by pressing a key from G to 
J. Pressing any key other than through 
9 or A through J results in the sounding 
of a short blast of a beep alarm. 

Suppose you press a number key, say 
2. Blue, the color in Slot 2, will be sent 
to the mixer. The colors of both the 
menu and message board will also 
change to blue. The message board will 
then read ARROWS or ENTER. The color 
mixer is cursor-controlled by means of 
the arrow keys. ENTER is pressed after 
the color mixing has been accomplished 
to your satisfaction. 

You will see a plus (+) symbol on each 
ol ihe three color meters, which serves 
as the cursor for that meter. A fourth 
plus located immediately to the left of 
the R meter indicates which of the three 
meter cursors is active. 

For the color blue in the mixer, the 
R meter cursor moves to its leftmost 
position corresponding to the lowest R 
meter color intensity value, 0. Pressing 
the right arrow key moves the R meter 
cursor one position and changes the 
color in the mixer. After pressing the 
right arrow key a total of three times, 
you will find the cursor at its rightmost 
position, corresponding to the highest 
R meter color intensity value, 3; it will 
have passed through positions corre- 
sponding to intensity values 1 and 2. 
Likewise, pressing the left arrow key 
moves the cursor left from high to low 
intensity value positions while causing 
associated color changes. 

The up and down arrow keys serve to 
determine which of the color meters has 
an active cursor. Pressing the down 
arrow key transfers cursor active con- 
trol from the R meter to the G meter. 
Pressing the right and left arrow keys 
actuates the G meter cursor in the same 
manner as it did for the R meter. Press- 
ing the up arrow key returns cursor 
control to the R meter, and pressing the 
down arrow key gives the B meter 
cursor control. Again, the right and left 
arrow keys move the active cursor in 
corresponding directions. Pressing the 



right or left arrow key when the cursor 
is in its rightmost or leftmost position, 
respectively, produces no cursor move- 
ment. 

After you have experimented with 
cursor movement and have obtained a 
color in the mixer to your liking, press 
enter. Suppose the R, G and B meter 
cursors were in positions corresponding 
to the values 0, 1 and I , respectively — 
Color 3 would be transferred to Slot 2, 
You will be informed of this fact via an 
auxiliary message board just below the 
mixer. The message on the main board 
will read tnrough 9 or A through J 
once again. 

You will note that the color in Slot D 
has also changed to Color 3. The reason 
Tor the change is that the color in Slot 
D has been used in Cohrmix to paint 
the mixer, menu and message boards. 
Cohrmix also uses the colors in slots E 
and F for all printing and coloring of 
the screen's background, respectively. 

Even though the color in Slot D 
changes with every color change in the 
mixer, Coiormix remembers the last 
color selected for Slot D. To verify this, 
press the D key; the color green will be 
sent both to the mixer and to Slot D 
itself. You may select a new color for 
Slot D and press ENTER or press ENTER 
alone to retain green as the color for 
Slot D. 

The auxiliary message board refers to 
Slot D by its decimal designation, 13. 
The hexadecimal designations were 
given to the last six slots for the purpose 
of having single-key selection of eaeh 
slot. 

Changing the colors of slots E and F 
will also change the print and back- 
ground colors, respectively. Selecting 
Slot E turns the mixer, menu and 
message boards black, effectively eras- 
ing all printing on the menu and mes- 
sage boards. Pressing the right arrow 
key will quickly make the printing in the 
menu and message boards visible again. 
Black in Slot E seems to yield the best 
punting clarity. For aesthetic purposes, 
you may want to alter the background 
color of the screen by mixing a new 
color for Slot F. 

When the message board reads 
through 9 or A through J, you may, by 
pressing J, obtain a screen printout of 
the present contents of slots through 
F. The printed information appears on 
the auxiliary message board for one slot 
at a time. The main message board tells 
you to press ENTER to receive informa- 
tion for eaeh succeeding slot. When you 
terminate the program by pressing 
BRHAK,you automatically get a full text 



Slot 


Color 


RGB 





34 


210 


I 


54 


330 


2 


15 


113 


3 


36 


300 


4 


63 


333 


5 


31 


133 


6 


41 


203 


7 


42 


212 


8 





000 


9 


18 


030 


10 


6 


110 


11 


27 


033 


12 





000 


13 


18 


030 


14 





000 


15 


38 
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5 DIt1C(15) 


:FDRI 


=0TO15:READC 


(I):PflLETTEI,C( I) 


NEXT 




S DATA 34,54,15, 


as 


,63,31 


.41, 


42,0,18,6, 


27,0, 
Table 


IB 
2 


0,38 





screen printout of all 16 slots. You may 
be greeted with a beep the first time you 
press BREAK, but repeated pressing of 
the key will indeed stop the program. 

For a hard copy printout of the slot 
information, merely press I. Table I 
shows a sample printout. If your printer 
is not connected, a program hang-up 
will occur; this can be eliminated by 
pressing BREAK. In such a case, you will 
have a screen printout as a consolation. 
If you don't have a printer, change the 
number GS0 in Line 480 to £50. Pressing 
I will then produce a beep instead of a 
hang-up. 

Pressing H allows you to save the 
current slot information in BASIC pro- 
gram form {ASCII format), A sample 
listing of such a recording is shown in 
Table 2. The saving process differs 
depending on whether you have a disk 
or cassette system. 

Saving to Disk 

On disk systems, pressing H causes 
the prompt PI LENflME: to be printed on 
the message board. Answer the prompt 
by entering a filename of eight charac- 
ters or less. The information will imme- 
diately be recorded on disk in the 
designated file. Instead of typing a 
filename, you may merely press ENTER. 

If you have not previously loaded any 

April 1988 THE RAINBOW 125 



slot information, the current slot infor- 
mation will be recorded on disk in a file 
named 5LOTC0L5. On the other hand, 
if in the present session with Colormix 
you have loaded from a previously 
saved file, you will record the current 
information in that file: that is, you will 
overwrite the most recently loaded file. 
All saved files automatically have the 
extension -DAT appended to the file- 
name. 

[fan I/O Error occurs during record- 
ing, Colormix won't be terminated. 
Instead. I-D ERRDR is printed on the 
message board. Moments later, the 
message will be replaced with through 
9 or A through J. 

Saving to Cassette 

On cassette systems, pressing H also 
causes the prompt FILENAME: to be 
printed on the message board. Position 
the tape in your recorder before you 
answer the prompt, then respond by 
typing a filename of up to eight char- 
acters but do not press ENTER yet. First, 



press both the Record and Play buttons 
on your recorder, and then press ENTER. 
When the recording is complete, the 
prompt will be replaced with through 
9 or A through J. If you fail to type in 
a filename and instead just press ENTER, 
the prompt will be replaced momentar- 
ily with the message NEED FILENAME. 

Loading from Disk 

To load a previously saved file, press 
G. The prompt FILENAME: is then 
printed on the message board. Answer 
the prompt by entering a filename of up 
to eight characters. If the program 
cannot find that file in the disk direc- 
tory, the prompt is replaced with the 
message ILLEGAL FILENAME. If you 
merely press ENTER without typing a 
filename, the message NEED FILENAME 
appears on the screen for a short lime, 

Colormix responds to a correct file- 
name by loading the designated file. 
You will see the slot colors change 
during loading. When loading is com- 
plete, the messages through 9 or A 



through J return to the message board. 
An I/O Error is treated as it was for a 
save. 

Loading from Cassette 

Pressing G brings the prompt FILE- 
NAME : to the message board. You may 
respond by pressing ENTER. Position 
the tape for loading the desired file, then 
press the Play button on the recorder to 
start loading the file. You will see the 
slot colors change during the loading. 
When loading is finished, the messages 
through 9 or A through J return to the 
message board. 

You may type a full filename of an 
already saved file and press ENTER 
instead of just pressing ENTER alone. 
However, if you type an incorrect 
filename, a fruitless search for the file 
could ensue. 

After acquainting yourself with the 
operation of Colormix, you should find 
that slot color selection is not only 
"PALETTE"able but also easy and time- 
saving. □ 
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The listing: COLORMIX 

5 CLEAR500 

10 REM **** COLORMIX **** 

20 REM BY H. ALLEN CURTIS 

30 REM COPYRIGHT (C) 19 8 6 

40 ON ERR GOTO9 30 

50 ON BRK GOTO970 

60 DIMS(15) ,R(15) ,G(15) ,B(15) ,Q( 

63) 

70 S(0)=18:S(1)=54:S(2)=9:S(3)=3 

6:S(4)=63:S(5)=31:S(6)=45:S(7)=3 

8:S(8)=0:S(9)=18:S(10)=0:S(11)=6 

3 : S ( 12 ) =0 : S ( 13 ) =18 : S ( 14 ) =0 : S ( 15 ) 

=38 

8J3 R(0)=6:G(0)=18:B(0)=6;R(1)=18 

: G ( 1) =18 : B ( 1 ) =6 : R ( 2 ) =6 : G ( 2 ) =6 : B ( 

2)=18:R(3)=18:G(3)=6:B(3)=6:R(4) 

=18:G(4)=18:B(4)=18:R(5)=10:G(5) 

=18 : B ( 5 ) =18 : R ( 6 ) =18 : G ( 6 ) =6 : B ( 6} = 

18:R(7)=18:G(7)=10:B(7)=6 

90 R(8)=6:G(8)=6:B(8)=6:R(9)=6:G 

(9)=18:B(9)=6:R(10)=6:G(10)=6:B( 

10)=6:R(11)=18:G(11)=18:B(11)=18 

:R(12)=6:G(12)=6:B(12)=6:R(13)=6 

: G { 13 ) =18 : B ( 13 ) =6 : R ( 14 ) =6 : G ( 14 ) - 

6 : B ( 14 ) =6 : R ( 15 ) =18 : G ( 15 ) =10 : B ( 15 



)=6 

100 PALETTERGB : HSCREEN2 : HCLS 15 

110 HCOLORl 4: HPRINT (17,1) , "SLOTS 

" : FORI=0TO9 : HPRINT ( 4+2*1 , 3 ) , CHR$ 

(1+48) ;NEXT:FORI=10TO15: HPRINT (4 

+2*1,3) ,CHR$(I+55) :NEXT 

120 DATA 0,1,8,9,2,3,10,11,16,17 

,24,25,18,19,26,27,4,5,12,13,6,7 

,14,15,20,21,28,29,22,23,30,31,3 

2,33,40,41,34,35,42,43,48,49,56, 

57,50,51,58,59,3 6,37,44,45,38,39 

,4 6,47,52,53,60,61,54,55,62,63 

130 FORI=0TO3 : FORJ=0TO3 : FORK=0TO 

3:READC(I,J,K) :NEXTK,J,I 

140 DATA 0,1,10,11,100,101,110,1 

11, 2 , 3 , 12 , 13 , 102 , 103 , 112 , 113 , 20 , 

21,30,31,120,121,130,131,22,23,3 

2,33,122,123,132,133 

150 DATA 200,201,210,211,300,301 

,310,311,202,203,212,213,302,303 

,312,313,2 20,221,2 30,231,320,321 

,330,331,222,223,232,233,322,323 

,332,333 

160 FORI=0TO6 3 :READQ(I) :NEXT 

170 FORI=0TO15: HCOLORl 

180 HLINE(16*I+28, 40) -(16*1+44,5 

0) , PSET,BF:NEXT 

190 HCOLOR14:HPRINT(2,10) , "R":HP 

RINT{2,12) , "G": HPRINT (2, 14) , "B" : 

HPRINT ( 10 , 8 ) , "MIXER" : HPRINT (28,8 

) , "MENU 

200 HCOLOR13 

210 FORJ=0TO2 

2 20 FORI=0TO3 



126 



THE RAINBOW April 1988 



23J3 HLINE(36 + I*32,79+J*16)-(68+I 

*32,88+J*16) ,PSET,BF 

24j3 NEXTI,J 

25J3 HLINE(192,78)-(287,153) ,PSET 

, BF:HCOLOR14:HPRINT(2 5,ll) ,"G: L 

OAD": HPRINT (25, 13} ,"H: SAVE" :HPR 

INT (25, 15) ,"I: LPRINT":HPRINT{25 

,17) ,"J: PRINT" 

260 GOSUB870:GOSUB880 

270 K$=INKEY$;IFK$= M,, THEN27j3 

280 D=ASC(K$)-48:IFD>22 AND D<27 

THEN GOSUB480:GOTO2 6J3 

290 IFD<0 OR D>22 THENGOSUB650 :G 

OTO270 

300 IFD>9 THEND=D-7:IFD<10 THEN2 

70 

310 RC=R(D) :GC=G(D) :BC=B(D) :GOSU 

B4 70 : RR=10 : HPRINT (RC ,1$) , " + " :HPR 

INT(GC,12) , "+":HPRINT(BC,14) ,"+" 

: HCOLOR14 : HPRINT ( 3 , 10 ) , "+" : HCOLO 

R14 

320 GOSUB870:GOSUB89P 

330 K$=INKEY$:IFK$=»'"THENGOSUB47 

0:GOTO3 30 

340 IFASC(K$)=9 AND RR=10 AND RC 

<18 THENGOSUB7 60 :RC=RC+4: HPRINT { 

RC,RR) ," + " 

3 50 IFASC(K$)=8 AND RR=10 AND RC 

>6 THENGOSUB7 60 :RC=RC-4 : HPRINT (R 



C,RR) , " + " 

3 60 IFASC(K$)=9 AND GR=12 AND GC 
<18 THENGOSUB7 70:GC=GC+4:HPRINT( 
GC,GR) ,"+" 

370 IFASC(K$)=8 AND GR=12 AND GC 
>6 THENGOSUB770 : GC=GC-4 : HPRINT (G 
C,GR) ,"+" 

380 IFASC(K$)=9 AND BR=14 AND BC 
<18 THENGOSUB780:BC=BC+4: HPRINT ( 
BC,BR) ," + " 

390 IFASC(K$)=8 AND BR=14 AND BC 
>6 THENGOSUB7 80:BC=BC-4: HPRINT (B 
C,BR) ,» + " 

400 IFASC(K$)=10 AND GR=12 THEN 
GR=0 : BR=14 : HC0L0R15 ; HPRINT (3 , 12) 
, " + '■ : HCOLOR14 : HPRINT (3 , 14 ) , "+" 
410 IFASC(K$)=10 AND RR=10 THEN 
RR=0 : GR=12 : HCOLOR15 : HPRINT ( 3 , 10) 
, " + " : HCOLOR14 : HPRINT (3,12), ■' + " 
420 IFASC(K$)=94 AND GR=12 THEN 
GR=0 : RR=10 : HCOLOR15 : HPRINT ( 3 , 12 ) 
, »' + " : HCOLOR14 : HPRINT ( 3 , 10) , ,f + " 

4 30 IFASC(K$)=9 4 AND BR=14 THEN 
BR=0 : GR=12 : HCOLORI5 : HPRINT (3,14) 
, M + ":HCOLOR14:HPRINT(3,12) ,'■ + " 
440 K=ASC(K$) :IFK<>9 AND K<>8 AN 
D K<>10 AND K<>94 AND K<>13 THEN 
GOSUB650 

450 IFASC(K$)=13THENRR=10:HCOLOR 
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In Quest of tt^e SSr^-Jord 

A new animated graphic adventure for the Color 
Computer 3 from the author of the Hall of the King 
trilogy! Enjoy the mixture of science and fantasy as 
you quest for the Phoenix Crossbow, the only thing 
that can save you in the post-holocaust world. A full 
4 disk sides of adventure! Outstanding 320x200 
graphics will make this your favorite CoCo adven- 
ture! Req. 128K CoCo 3 and disk drive. Only $34,95. 



^un£~ f u Dude 

An exciting new arcade gome. This U the long-awaited response to I he huge 
demand for q Kung-Fu program for the CoCo The graphics, sound effects. 
and animation are spectacular 1 This is the BEST karate game ever available 
for the Color Computer. Req. 64K. disk drive, and joystick. Only/ S2d °5 

"The CoCo karate gop has been filled and Kung-Fu Dude does it excellent- 
ly. I highly recommend (It)!" -2/88 Rainbow review 
"A definite 5 stars?" -12/87 Wizard's Castte review 
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WHITE FIRE 
OF ETERNITY 

MK Animated Graphic Adven- 
ture. See 12/86 Rainbow review. 
Only S19.95. 

CHAMPION 

64K Superhero Action Adventure. 
See 5/87 Rainbow review. Only 
S19.95. 



All programs CoCo 1, 2, 3 compatible unless stated otherwise. 
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Systems 



Sundog Systems 

21 Edinburg Drive 
Pittsburgh, PA 15235 
(412) 372-5674 

Personal cnecks. money otderj. and COD orders 
accepted 



Include $2.50 for S/H, $200 
extra for C.O.D. orders. PA 
residents add 6% sales tax. 
Authorship and dealer inauiries 
welcome. 
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13 : HPRINT (RC, 10) , "+" :HPRINT(GC, 1 

2) , "+" :HPR1NT(BC,14) ,"+":HCOLORl 

5: HPRINT (3, 10) ,"+":HPRINT(3,12) , 

" + " : HPRINT ( 3 , 14 ) , " + " : HC0L0R14 , 15 

:GR=0:BR=0:P ALETTE D,CC;S(D)=CC E 

LSE330 

460 HCOLOR13:HLINE(36,132)-(157, 

163 ) , PSET , BF : HC0L0R14 : HPRINT (8,1 

7) , "SLOT "+STR$(D) : HPRINT (8 , 19) , 

"COLOR"+STR$(CC) :R(D) =RC:G(D) =GC 

:B(D)=BC:GOTO260 

470 CC=C((RC-6)*.25, (GC-6)*.25, ( 

BC-6)*.25) : PALETTE 1 3, CC: RETURN 

480 ON D-22 GOTO 490,590,660,700 

490 O=0:GOSUB790 

500 IFPEEK(&HBC)=6THENJ=-1ELSEJ= 

1 

510 F$=A$ 

520 IFA$="" AND J=l THENGOSUB870 

:GOSUB910:GOTO490 

530 OPEN"I",#J,F$ 

540 1=0 

550 IF EOF(J)=-1THEN570 

560 LINE INPUT#J,A$:GOTO550 

570 CLOSE#J:A$=RIGHT$(A$,LEN(A$) 

-6)+" , " :FORI=0TO15 : D=VAL(LEFT$ {A 

$,INSTR(A$,",") -1) ) :S(I)=D:PALET 

TEI , D: A$=RIGHT$ (A$ , LEN (A$) -INSTR 

(A$,",")) :L=INT(Q(D)/100) :R(I)=L 

*4+6:E=Q(D)-100*L 

580 L=INT(E/10) :G(I)=L*4+6:L=E-1 

0*L: B (I) =L*4+6: NEXT: RETURN 

590 IFPEEK(&HBC)=6THENJ=-1:0=1:M 

OTORON ELSEJ=1:O=0 

600 GOSUB790:IFA$="" AND F$=" M T 

HENF$="SLOTCOLS"ELSE IFA$<>""THE 

NF$=A$ 

610 A$="6 DATA " 

620 FORI=0TO15:A$=A$+RIGHT$(STR$ 

(S(I) ) ,LEN(STR$(S(I)) )-l)+"/':NE 

XT : A$=LEFT$ (A$ , LEN (A$ ) -1) 

630 OPEN"0",#J,F$ 

640 PRINT#J,"4 HSCREEN2"'.PRINT#J 

,"5 DIMC(15) :FORI=0TO15:READC(I) 

: PALETTEI , C ( I ) : NEXT " : PRINT # J , A$ : 

CLOSE#J:RETURN 

650 SOUND 60,3: RETURN 

660 D=2:GOTO680 

670 WIDTH40:D=0 

680 PRINT#-D,TAB(12) "SLOT COLOR 

RGB":FORI=0TO15:PRINT#-D,TAB(13) 

; :PRINT#-D,USING"##";I; :PRINT#-D 

," ",*: PRINT* -D, USING" ##" ;S (I) 

; :PRINT#-D, ■ "; : PRINT#-D, USING" 

#"; (R(I)-6)/4; :PRINT#-D, USING" #" 

; (G(I) -6)/4 ; :PRINT#-D, USING"*"; ( 

B(I)-6)/4:NEXT 

690 RETURN 

700 HCOLOR13:HLINE(36,132)-(157, 

163) , PSET, BF:HCOLOR14: HPRINT (5,1 

7), "SLOT COLOR RGB" : 1=0 : GOSUB870 



: HPRINT (22, 22) , "ENTER" 

710 GOSUB7 50 

720 K$=INKEY$:IFK$=""THEN720ELSE 

IFASC (K$ ) O13THENGOSUB650 : GOT072 

% 

7 30 IFI=15THENRETURNELSEHCOLOR13 

: GOSUB7 50 : HCOLOR14 

740 I=I+1:GOTO710 

750 HPRINT (6, 19) ,STR$( I) : HPRINT ( 

11,19) , STR$(S(I) ) : HPRINT (15, 19) , 

STR$((R(I)-6)/4) : HPRINT (16, 19) ,S 

TR$((G(I)-6)/4) : HPRINT (17, 19) , ST 

R$( (B(I)-6)/4) : RETURN 

760 HCOLOR13:HPRINT(RC,10) , "+":H 

COLOR14: RETURN 

770 HCOLOR13:HPRINT(GC,12) /'+" :H 

COLOR1 4: RETURN 

780 HCOLOR13 : HPRINT (BC, 14) , "+":H 

COLOR14: RETURN 

790 GOTO800 : A$=" " : HCOLOR13 : HLINE 

(20, 173} -(215, 185) , PSET, BF:HCOLO 

R14 : HPRINT (6,22), "FILENAME : " : 1=0 

800 A$=" " : GOSUB870 : HPRINT (16,22) 

/'FILENAME:": 1=0 

810 K$=INKEY$:IFK$=""THEN810 

8 20 MOTOROFF 

830 IFK9 AND ASC(K$)>47 AND ASC 
( K$ ) <9 1THENHPRINT (26+1,22) , K$ : 1= 
I+1:A$=A$+K$ 

840 IFI>0 AND ASC(K$)=8THENI=I-1 
: HCOLOR13 : HPRINT (26+1 , 22 ) , RIGHT$ 
(A$ , 1 ) : HCOLOR14 : A$=LEFT$ (A$ , LEN ( 
A$) -1) :GOTO810 
850 IFASC(K$)=13 AND (I>0 OR J=l 

OR 0=0) THENRETURN 
860 IFASC (K$) =13 AND 1=0 AND 0=1 

THENGOSUB8 70 : GOSUB910 :GOTO590EL 
SE810 

870 HCOLOR14:HPRINT(4,22) , "MESSA 
GES " : HC0L0R1 3 : HLINE ( 110 , 173 ) - (2-8 
7,18 5) , PSET, BF: HC0L0R1 4: RETURN 
880 HPRINT(16,22) ,"0-9 or A-J":R 
ETURN 

890 HPRINT (16, 22) /'ARROWS or ENT 
ER" : RETURN 

900 HPRINT (16, 22) , "1-0 ERROR": GO 
SUB650 : FORK=0TO9 9 9 : NEXT : RETURN 
910 HPRINT (16, 22) /'NEED FILENAME 
" : GOSUB650 : FORK=0TO999 :NEXT:RETU 
RN 

920 HPRINT (16, 22) /'ILLEGAL FILEN 
AME" : GOSUB650 : FORK=0TO9 9 9 : NEXT : R 
ETURN 

9 30 IFERNO=2 6THENGOSUB8 70:GOSUB9 
20 : G0SUB4 90 : G0T02 60 

9 40 IFERNO=3 8THENEND 

9 50 IFERNO=2 J 0THENGOSUB8 70 : G0SUB9 

00 '.GOTO 2 60 

9 60 END 

970 HSCREEN0:GOSUB670:END 
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CoCo Max III — 

Taking CoCo 3 Graphics to the Max 



The Color Computer is an incredible 
machine. It is used by thousands of 
people every day to perform a variety 
of tasks. Telecommunications, business 
applications, games and music are just 
a few of the CoCo's uses. However, for 
many, graphics and the creation of eye- 
pleasing pictures remains the foremost 
function of the CoCo. 

A lot of graphics packages have come 
and gone for the Color Computer, but 
no piece of software has caused such a 
revolution as CoCo Max did in 1985. 
CoCo Max was the first real point-and- 
click system for the CoCo and was truly 
user-friendly. 



In July 1986, the CoCo 3 was intro- 
duced, and with it came an abundance 
of new features, such as new commands, 
more colors, higher resolution, more 
memory, faster speed and new text 
modes. The big question was, "Is there 
going to be a CoCo Max IIP." No one 
really knew what would happen. In the 
meantime, patches and modifications 
were made available to convert CoCo 
Max II to the CoCo 3. However, there 
was no big advantage to this since the 
resolution and colors remained the 
same. There was no patch available to 
take advantage of the Hi-Res screen or 
all the new brilliant colors. Colorware 



mailed out letters to all CoCo Max II 
users stating there were no plans at that 
time to produce a CoCo Max III. 

As time went on, many graphics 
packages for the CoCo 3 emerged. 
Among these were CIII Graphics, Da- 
Vinci3, My Artist and Color Max 3. 
These programs had varying levels of 
success, but at least a serious void was 
being filled for CoCo 3 graphics soft- 
ware. 

Months later, I was reading through 
the September 1987 rainbow and 1 
came upon a new advertisement. At first 
glance, it appeared to be a new CoCo 
Max //ad. A closer look revealed it was 
for CoCo Max IIP. I immediately called 
and preordered a copy; about five weeks 
later, it arrived. I couldn't wait to boot 
it up! 

Before I started using CoCo Max III, 
I made a backup. CoCo Max HI is not 
copy-protected, so you can make as 
many backups of the software as you 
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need. However, in order to use CoCo 
Max III, you must use the Hi-Res 
module, which is included, Colorware 
has taken the standard Radio Shack 
module and modified it to work only 
with CoCo Max HI. 

The DIN plug of the Hi-Res module 
plugs into the right joystick port of your 
CoCo, and your joystick or mouse 
connector plugs into the DIN port on 
the Hi-Res module. This is a simple 
hookup, and it does not take up any 
space in your Multi-Pak or require a Y- 
cable. 




There are two ways to run CoCo Max 
III. The method you choose depends on 
how much memory you have in your 
CoCo 3. If you have ADOS-3, you must 
use the DISABLE command to use CoCo 
Max HI. If you are using a 128K Color 
Computer 3, you are required to make 
a work disk. This is done by running a 
file called WDMRKER. You must have a 
blank, formatted disk in order to create 
a work disk. On a 128K CoCo 3, the 
work disk is used to store the fonts, the 
clipboard pictures and scrapbook 
buffers. However, you cannot store 
pictures on the work disk. Colorware 
has used the entire disk for all the disk 
I/O and has left no free space on the 
disk. Single-drive systems require that 
you take out the work disk and insert 
a formatted blank disk. Systems with 
two or more drives let you use any drive 
I through 3 for picture storage and leave 
the work disk in Drive 0. Once the work 
disk has been made, you must remove 
it and reinstall the CoCo Max III 
program disk. Type RUN "CM3" and, 
after CoCo Max ///loads up, install the 
work disk. It is that easy. 

Users with 512K have it even better. 
Unlike a machine with 128K, a 512K 
CoCo 3 can load any font from memory. 
All clipboard and scrapbook functions 
are also accessed through RAM. This 
allows lightning fast control over all of 
the functions. 

Even though CoCo Max HI runs as 
is, it is best to customize it to your setup 
by running the configure program. You 
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will be asked a series of questions on 
your monitor and printer type, amount 
of RAM, number of drives and printer 
baud rate. If you do not configure your 
CoCo Max HI program disk, you can- 
not print. Once the config program is 
finished, you can start CoCo Max HI 
by typing RUN"CM3". One nice thing 
about the config software is that it is not 
erased after you run it. As your system 
grows and changes, just run the config 
program again to make the proper 
revisions. 

Upon running CoCo Max HI, the 
title screen appears. A click of the 
mouse button causes the opening cred- 
its to disappear, leaving a blank win- 
dow. At this point you are ready to take 
control of the cursor and create. Even 
though Colorware modified the Hi-Res 
module, cursor control is very smooth 
and clean. This is the key to quality 
drawing software for the CoCo. 

There are various tools and patterns 
on the main screen, which is separated 
into seven segments. 

First of all, there is the window. This 
is where you actually draw your picture. 
Just about every function you will use 
relates to the window. Pictures are saved 
from, and loaded into, the window. 

The palette at the bottom of the 
window shows the 16 colors available, 
along with 16 of the 32 patterns. Color- 
ware should be applauded for coming 
up with such a wonderful selection of 
patterns. The alternate set of patterns is 
changed by clicking on the selected 
pattern box. 

The selected pattern box is directly to 
the left of the palette. It is made up of 
an inner and outer box. The inner box 
is the fill/ brush pattern, while the outer 
box is the line/ border pattern. A single 
click on any color or pattern puts that 
pattern into the inner box. A double 
click puts it into the outer box. 
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To the left of the selected pattern box 
is the line width box, which is used with 
the drawing tools. Selected lines are of 
set width but can be edited after they are 
drawn into the window. 



Above the line width box are three 
toggle bars. From top to bottom they 
are Fill, Zoom and Undo, Selecting the 
Fill bar will fill a shape with the selected 
color. Zoom is a great feature. It allows 
you to enlarge a section of the window 
to four times its normal size, which is 
perfect for clean-up work. 




The Undo feature is the most power- 
ful of the three. The last action per- 
formed in the window can be voided by 
placing the cursor on the Undo bar. You 
can even undo while zooming. This 
feature is also reversible, so if you 
change your mind, you can toggle the 
Undo bar again to return to the original 
picture. The Undo feature is easy to use, 
too. All it takes is one push of the mouse 
button and you can undo anything. All 
in all, the three toggle bars are an 
important addition to Color Max III 
and help add flexibility to drawing. 

Immediately up from the toggle bars 
is the tool box, which contains 2 1 icons. 
Many of these icons were available in 
CoCo Max II, including the lasso and 
move window tool; drawing tools, such 
as the pencil and rubber band line; and 
tools for creating boxes, circles, poly- 
gons, etc. CoCo Max II users will also 
recognize such features as the paint 
tool, paint brush, spray can, text icon 
and eraser. There are, however, a 
number of tools that are brand new, and 
which add to the power and flexibility 
of CoCo Max HI. One new feature is 
the replace color tool, which is used to 
fill an area in the window with a chosen 
color or pattern. If there is an open 
space on the border, the color will leak, 
so make sure your border is solid. 
Leaving gaps is easy to do when zoom- 
ing. Don't worry — if a mistake is made, 
the Undo bar is always available. 

Another new tool, Arc, takes a little 
getting used to. Arc functions are just 
like the rubber band line, except they 
create a 90-degree arc. This is much like 
using a French curve tool when drawing 
designs on paper. You can use any color, 
and line width can also be changed. 
Also new is the cube icon. You can click 



and hold the mouse button to draw the 
front of the cube just like a square box. 
After drawing the from, a release of the 
button allows you to move around lo set 
the angle of the other two sides. Click- 
ing the button again locks the remaining 
sides in place. As usual, line width and 
color selection can be used. This is a 
super tool, although its uses may be 
limited to technical and architectural 
drawings. 

Additional new drawing features 
include the free hand shape tool, which 
is a cross between the rubber band line 
and the polygon, and the ray tool, which 
can be used to draw wonderful effects. 

Winding up the CoCo Max III icons 
are the flowbrush and the centered 
circle. The flowbrush is used under the 
animate mode and features the same 
brush shapes as the paintbrush. The 
great thing about flowbrush is that 
when used in the window, the brush 
shape alternates among the four ani- 
mated colors. These are colors II, 12, 
13 and 14 on the palette. The slower you 
draw, the closer the four colors are to 
each other. Conversely, the faster you 
move across the window, the larger the 
color separation. The CoCo Max III 
demo gives a beautiful example of how 
this can be used. This is a fun tool to 
use and its possibilities are endless. 

The centered circle is used to create 
circles from a center point going out- 
ward. It works basically the same as the 
regular circle tool. Drawing bull's-eyes 
and targets is simple, and all line widths 
and colors can be used. 

The final section on the screen is the 
menu bar. This is located above the 
window and is used to pull down the 
seven menus. By clicking on any of the 
seven titles, the menus appear. 

Clicking on the file menu gives you 
the first menu, which includes various 
loading and saving options, as well as 
features to double page size and assign 
drives. The file menu also allows access 
to the scrapbook mode and several 
printer options. The scrapbook mode 
unlinks the window from the rest of the 
picture, allowing you to doodle and try 
new drawing techniques. Toggling out 
of this mode returns the screen back to 
its original form. Objects can also be cut 
or copied out of the scrapbook and 
pasted onto another picture without 
harming the current drawing. Two 
commands are available under the 
scrapbook mode: Save Scrapbook and 
Load Scrapbook. These commands can 
be used to save and load entire windows 
onto disk for later use. They are saved 
with the extension .SBK. The scrap- 



book is another wondrous power of 
CoCo Max III. 

Printer functions include double size, 
which prints out a double screen on a 
full-size sheet of paper or a half sheet 
on a half screen. This allows for excel- 
lent text print for desktop publishing. 

The print option allows printer out- 
put of a drawing. CoCo Max III cur- 
rently supports several printers. They 
are Epson and compatibles, Gemini, 
D MP- 105/ 106, DMP-130 Serial and 
DMP-130/106 IBM mode. All print 
drivers print out pictures in black and 
while along with five shades of gray. 
Each slot prints out a specific shade, 
regardless of what color is assigned to 
it. To print in black and white, Slot 
(white) and Slot 15 (black) must be 
used. Use of any other color will result 
in gray shades being printed. The CoCo 
Max III user's manual details shade 
assignments. 

D MP- 105 printouts look reasonably 
good. However, due to the quality of the 
printer itself, hard copies may be 
smudged or slightly blurred. Printouts 
from an Epson printer look perfect. The 
double-strike mode works with this unit 
and enhances the printout even more. 

A CGP-220 printer driver is available 
for $19.95. Colorware has developed a 
way to print 125 colors on the CGP. 
There are separated color sets for RGB 
and composite modes. Print quality is 
very good and crisp for the most part, 
and the printout colors match the screen 
colors closely. This really makes CoCo 
Max ///shimmer and sparkle. 



are grayed out except for the paste 
command when not using any editing 
tools. The functions include cut, copy, 
paste, clear and fill. 
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Several utilities are also on the CGP- 
220 driver disk lo allow custom palettes 
to be created. Other utilities allow 
printing of ail available colors, and the 
Printii program allows color hard 
copies of drawings to be printed out 
without using CoCo Max HI. The 
CGP-220 driver disk is worth every 
penny and more. 

The second menu can be accessed by 
clicking the edit bar. The functions 
under this menu are used in conjunction 
with the lasso and editing box and all 




You can also trace the outer border 
of an object you're editing with the trace 
edges feature, and turn the colors within 
the editing box to their opposites (for 
example, white turns black and black 
turns white). 

Various other functions are available 
from the edit menu that allow you to flip 
an item you're editing (either horizon- 
tally or vertically), turn it sideways, 
shrink it or stretch it, or rotate it in 
small, precise angles. 

Use of the edit menu can be very 
helpful to all CoCo artists. If you plan 
lo do serious drawing, you will use this 
menu constantly. 

Clicking on the options menu will 
give you a variety of artistic features 
that complement CoCo Max III very 
well. First is ihe grid tool. This is 
convenient for positioning text or doing 
technical drawings. 

There are also features for pattern 
modification and brush selection, as 
well as brush mirror options, which 
draw proportional brush strokes either 
horizontally or vertically within the 
window. 

New features include clear RAM 
disk, which clears pictures, scrapbooks 
and clipboards saved in RAM, and load 
font set, which loads optional fonts such 
as Max Fonts. If you create newsletters 
or do desktop publishing, load font set 
is indispensable. 

Ihe color menu really lets CoCo do 
what it is made for — color computing. 
A variety of tools allow for color chang- 
ing and animation. These tools can turn 
an ordinary picture into a remarkable 
and magical picture. 

The set colors tool allows you to 
change any of the 16 palette colors. 
Upon clicking set colors, a window 
showing all 64 available colors and the 
16 palette slots appears. To change 
colors, simply click the palette you want 
to change, then click one ofthe 64 colors 
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available. Presto, it is changed. To exit, 
click the OK prompt. This is a great 
feature — no fuss, no guess, just click 
to pick your color. This is a great help 
when drawing shades. You can actually 
compare colors on the screen. The 
Standard CMP and Standard RGB 
option reverts the palettes back to their 
original color sets. 

You can use the cycle colors tool to 
cycle through eight pre-chosen colors. 
To change the cycle colors, click on this 
menu bar and a window will appear, 
again showing all 64 colors and eight 
color palettes. Click on these palettes to 
change, then click the desired color. 
Palette number 1 1 is the color cycle 
palette. This is one of the two powerful 
animation features. 

The cycle speed tool allows the colors 



to be cycled at almost any speed from 
.5 steps per second to 60 steps per 
second. 

You can control animation with the 
animate speed tool, which sets the 
rotation of the four animation colors at 
the same rate as cycle speed. The ani- 
mate feature revolves through four of 
the palettes on the palette bar to create 
a motion type effect. This effect is 
similar to rotating lights on a marquee 
and gives the picture a magical effect 
almost like cartooning. 

Color mixing options include: no 
color mix, to paint over a color by any 
other color; additive mix, which acts as 
a color mixer; and subtractive mix, 
which takes color away from a paint. 

By clicking the font menu, there are 
13 font styles available, with over 90 




MUL Ti-FONT PRINTER 

NX-1000 



NEW 



The NX-1000 gives you plenty of print 
options for attractive printing. Four 
typestyles. Four pitch sizes, in standard 
and italics for a total of 32 NLQ modes . The 
NX-1000 Rainbow gives you all these 
features plus online access to 7 color 
printing and graphics. Black, blue, red, 
yellow, green, violet, and orange. Both 
models have a 1 year warranty, nationwide 
service and a30day online trial 




NX-1000 SYSTEM INCLUDES: 



• Star NX-1000 Printer 
> Blue Streak Ultima 
Software Support Trio 



$ 199 



95 



+$W Shipping and Insurance 

COMPLETE 



NX-1CWQ SPECS: l *4 cps Draft, 3&cpsNLG (18 k23 doc matrix), 

4 NLO Fonts. Italics., Sub 5 Superscripts. Emphasized, Dqu- 
tf B5!n<i£ r Proportional. Condensed, ffltsHiafcnal. Downloadable, 
OuacJ Tall , Qoubte Tall, Underline. 9* Pitctis, Forward and Reverse 
jt/216" Lin& feeds, Absolute or Retalive Vert. A Horz. Tabs, Lefl. 
Censer or Rrgfit Justification, 3 Graphics Modes to 1 920 dpi , Macio 
Instruction, Bidirflctiorv 2 DO-- Priniable Characters. Setni Auto 
Sti&fll Feed. Front Panel Soil Touch Control, Epson and IBM 
Emula.De. 4k Data Buffer, H&x Dump. 
Rainbow: Same plus color. 



NX-WOO RAINBOW SYSTEM INCLUDES: 



• Star NX-1000 
Colour Printer 
' Blue Streak Ultima 
■ Software Trio 



$ 299 
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Color Imaging Software 



■$10 Shipping and Insurance 

COMPLETE 



TYPE 

SELECTION/ 

TUTORIAL 



rhttfetfjan a gsfflijmai 



SUPER 
GEMPRINT 



Online instructional program 

that wilt select 24 special features 

ol your printer or display methods 

to incorporate them into your 

programs. 

Price, availability and specifications subject 1o change wilhout notice 



Will transfer a Pmode 0, I, 2, 3, or 

4 picture screen to printer 8'xW 

hardcopy. Black/white, whileJplack 

or grey level shading lor color. 



Ht-RES 

SUPER 

GEMPRINT 

Disk sollware that will 

transfer a Hscreen 1,2,3 or 4 

picture screen to printer. 

Grey level shading lor color 



Software Trio 
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DAYTON ASSOCIATES 'iK , INC. 

720 I CLAIRCREST, BLDG. D 

DAYTON. OHIO 45424 

OHIO RESIDENTS ADD 6% SALES TAX • COD. ADD $2.00 



PERSONAL SERVICE 
(513) 236-1454 

Visa & MasterCard 

within the continental U.S. 



more that can be added. These can be 
loaded through the load font set option. 
If you own Max Fonts, Colorware will 
upgrade your original disks to work 
with all versions of CoCo Max. Send 
the disks along with an SASE to Color- 
ware for the conversion. These fonts 
maximize the full potential of CoCo 
Max ///'s desktop drawing abilities. 

The size menu is used in conjunction 
with the fonts. Text can be stretched by 
using the tall or wide command. The 
size can be increased or decreased by 
using the X3/4, X2, or X4 options. All 
of these options can be used alone or in 
any combination. Unlimited sizes can 
be created using this menu. 

Last on the menu bar is the style 
menu, which works with the font and 
size menus. Any font can use one or 
more of five styles. Bold, italics, outline, 
shadow and 3-D styles are available. To 
revert back to the regular style, click the 
Plain command at the top of the menu. 
Text can also be justified by using the 
left, centered and right functions in the 
style menu. 

CoCo Max III comes with a multi- 
tude of support programs to round it 
out. CoCoShow comes on the demo 
disk and is used in the creation of slide 
shows and demonstrations with CoCo 
Max SI! pictures. This program is easy 
to use and you can use as many pictures 
as you can store on one disk. 

The Coliram software converts RGB 
colored files to CMP colors or CMP 
colors to RGB colors. This is especially 
useful if you upgrade from a composite 
monitor to an RGB display. Another 
use might be to transfer pictures to a 
friend who has a different kind of 
monitor. 

Translal has the ability to read and 
write compressed files. This program 
loads picture files into memory so they 
can be accessed from basic. CoCo Max 
II pictures can also be transferred to 
CoCo Max HI, then edited and colored 
using this fine utility. CoCo Max II 
users will find it hard not to use this 
program. 

CoCo Max III is extremely user- 
friendly. While doing this review, my 15- 
year-old brother, Larry, sat down with 
the mouse and drew an impressive 
picture of an F-4jet (see photo). He has 
never used CoCo Max III and only 
played with CoCo Max II once. You 
cannot get any friendlier than that. 

CoCo Max III is also error-free. The 
program does not bomb out under any 
conditions. A Quit function on one of 
the menus would have been a big help, 
though, especially if you want to exit to 
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set a printer code, then jump back into 
the program. 

CoCo Max HI is much more than a 
drawing program. School projects, 
Christmas cards, certificates, slide 
shows, newsletters, labels, buttons, 
manuals, brochures, business cards and 
cartoons are just a few of the items that 
can be created. There are no limits to 
what you can do with this fabulous 
program. 

All in all, CoCo Max HI is a pro- 
gramming triumph. The CoCo Max III 
user's manual is one of the most com- 
prehensive and easy-to-use guides I 
have ever seen for any CoCo program. 
Colorware and Dave Stampe are to be 
commended for their amazing creation. 
Speed, ease, animation, power and 
color, all in one package. CoCo Max HI 
is the ultimate program for the CoCo 3. 



(Colorware, 242-W West Avenue, Darien, 
CT 06820, 800-221-0916; $79.95) 



— Logan Ward 



CoCo 1 & 2 



Software — 

Banker II — 
Expand and Manage 
CoCo 2 Memory 



Banker II is a hardware and software 
package that is manufactured and dis- 
tributed by J & R Electronics of Mary- 
land. The product consists of a memory 
expansion board of either 256 or 512K 
RAM, an associated memory manage- 
ment board {called Banker II because it 
manages the memory banks in the 
CoCo or CoCo 2), and some associated 
software. The product is available in kit 
form or fully assembled. This review is 
for the fully assembled Banker II with 
512K of RAM memory. 

Unfortunately, the product arrived 
damaged. The Banker board had not 
survived the U.S. Postal Service, and 
was too badly damaged to be fixed. I 
contacted Jesse Jackson at J & R Elec- 
tronics, and he promptly shipped me a 
missing installation manual and an 
entirely new unit for review. The unit 
was carefully packaged and arrived in 
only a few days, as promised. It was 
entirely functional after I reinstalled the 



PI jumper cable, which had been in- 
stalled backward. 

The installation is solderless and can 
be done by anybody in less than a half 
hour. It requires only that you be 
capable of removing some 1C memory 
chips and the SAM chip and installing 
in its place the Banker II board and a 
memory expansion board that fits 
under the keyboard. In some instances, 
a plastic skating pin that the keyboard 
rests on must be removed for the mem- 
ory board to fit correctly. Otherwise, it 
is a relatively painless operation. 1 must, 
however, caution that if you have never 
opened a CoCo or other computer and 
have no experience or familiarity, your 
best bet would be to find someone to 
assist you (a local CoCo Club or users 
group might be an excellent resource). 



This is a very sophisticated product 
that can either be very simply imple- 
mented or supercharged to a peak of 
performance, so this memory package 
is useful for both the power user and the 
average user. OS-9 users get the advan- 
tage of OS-9 Level II, and a supcrfast 
disk drive to really turbocharge opera- 
tions. The RS-DOS users get the bene- 
fits of the memory, one or two instant 
access RAM disks, a sophisticated print 
spooler that will handle multiple copy, 
reset, kill, dump and speed upgrade 
commands by a simple CHRS statement, 
and more. 

In addition, there is the PCOPYMDR 
program, the Banker Backup program, 
and the pager program, which can be 
used to take advantage of copying 
ROM to RAM memory, backing up a 
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RAM disk or an upper bank of mem- 
ory and, more importantly, stepping 
through the memory banks. This is very 
similar to having six 64K CoCos in one! 

Also included is a bank test program 
that will selectively or automatically test 
and verify all of the memory banks. In 
a 512K CoCo you would now have 125 
graphics pages of memory at your 
command! A PCDPYDEMD program 
shows you how the memory could be 
managed to create animated graphics 
screens. A program designed to work 
with Telewriter-64 called S . XXX is also 
provided. Use this program with great 
care! It is designed to speed up and 
augment disk I/O by allowing the use 
of a RAM disk. You must load the 
RAM disk with the Banker before 
booting Telewriter-64 or any text in the 
buffer will be overwritten and lost! 

Both Jesse Jackson and Raymond 
Rowe have done a thorough and com- 
plete job in designing, engineering and 
assembling Banker II and its software. 
The user can customize the software, 
the source code itself and the Banker II 
memory maps any way he or she 
chooses, and really make it fly. The 
documentation on all counts is thor- 
ough and to the point. The installation 
manuals are thorough, too, with dia- 
grams and careful explanations of how 
to handle the assembly and installation 
of both the assembled Banker //and the 
one that comes in kit form. Trouble- 
shooting guides are included in both 
manuals and in the user manual for the 
software. A note of caution here, also. 
These are technically oriented manuals 
and are beyond the immediate scope of 
the novice. 

After installing Banker II success- 
fully, 1 had little trouble operating the 
associated software. I tested the equip- 
ment in several different CoCo 2s, and 
found that it tended to overheat about 
30 to 45 minutes after power-up in some 
cases where the room temperature was 
about 68 degrees Fahrenheit. This was 
not always replicable, however, and 
could be due to a faulty power supply. 
I also found that occasionally, in at- 
tempting to change banks or pages, the 
machine would inexplicably crash. Yet 
I could not get the system to replicate 
the problems. I chalk this up to a faulty 
connection somewhere, and suggest to 
the Banker II user that he or she check 
all connections very carefully! Also, the 
Korean CoCo users will find the 64K 
chips soldered to the motherboard. 
Good luck removing them and instal- 
ling sockets! The CLEFiRFIX patch and 
OS-9 Bootf ix patch, which cure slight 
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incompatibilities with Banker II, 
worked without problems. A note 
again: In switching the controllers and 
computers with Banker II, I discovered 
that DOS l.O would cause the disks to 
behave very erratically, while DOS l.l 
always worked fine. 

In summary, I have tested this prod- 
uct thoroughly and rigorously under 
different circumstances and situations. 
It is a very well-designed and well- 
engineered product that has excellent 
documentation and support. The flaws 
and glitches I found could not be repli- 
cated in every instance and user fault 
cannot be ruled out entirely in these 
cases. What crashes I experienced could 
be recovered from immediately, though 
any data in memory was lost at system 
crash (warm reset was not possible due 
to keyboard lockout). 



The documentation and support are 
thorough and high quality. I would 
recommend that 5I2K versions of the 
programs be present on the software 
supplied with the product so that the 
user does not have to customize the 
software if he or she has 512K installed 
in the computer. As the software cur- 
rently exists, the user must customize 
the programs to take advantage of the 
5I2K RAM. This is an excellent prod- 
uct for people wanting or needing more 
memory, but not wanting to move on 
to the CoCo 3. 



(J & R Electronics, P.O. Box 2572, Colum- 
bia, MD 21045, 301-987-9067 or 301-788- 
0861; S39.95, kit form; $169.95, fully as- 
sembled) 



— Jeffrey S. Parker 
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Avatex 1200e — 
Economical 1200 
Baud Modem 

The world of personal computing 
continues to move onward and upward 
every day. In the modem industry, the 
300 baud modem was made obsolete by 
the 1200 baud modem — which was 
then superseded by the 2400 baud 
modem. Many high-end business users 
are now running 9600 baud modems, 
and in a few years the new ISDN stand- 
ard will allow communication at speeds 
up to 64,000 baud. 

That's all well and good for those of 
us with deep, well-lined pockets — but 
CoCo users are typically economy- 
minded people who can't, or won't, 
spend such atrocious sums on equip- 
ment. That's why so many CoCo users 
still have 300 baud modems. But 300 
baud can be a false economy when 
you're using a service like Delphi or 
CompuServe, or when you're dialing 
out-of-town bulletin boards and paying 
long distance charges. Also, some heav- 
ily used BBSs are now allowing access 
only at 1200 or 2400 baud, locking out 
the folks with older modems. What has 
been needed for quite some time is a 
1 200 baud modem for the price of a 300 
— say, around $100, which is what a 
typical 300 baud modem often sells for. 
The Avatex 1200e, at $99, has finally 
broken the barrier. 



Unlike certain other modem bargains 
that have popped up in the past, the 
1200e isn't a stripped model, or 
originate-only, or a "dumb" modem, or 
a reconditioned used unit. It handles 
both answer and originate, dials with 
both tones and pulses, and is a Hayes- 
compatible "smart modem." It has the 
usual status lights and speaker. As best 
I can tell, they haven't left anything out. 
The secret of the 1200e's small size (6'/S- 
by-5 '4-by- 1 Vi inches) and low cost is 
that it uses a new pair of integrated 
circuits — the SCI 1008 and SCI 1014 — 
to provide most of the logic and signal 
processing circuitry. The whole board 
has about as many parts as a transistor- 
ized AM radio. 

The 1200e's AT command set is very 
close to that of a Hayes modem, though 
there are some minor differences that 
shouldn't have an adverse effect on 
compatibility. All 14 of the 'S' registers 
are available for adapting the modem to 
the way you prefer to use it, and all five 
'X' levels are available to allow dial tone 
and busy signal detection. As an exam- 
ple, you might send this string to the 
modem to initialize it: 

RTX4E0L1S11-50 

This would set the modem for full 
"call progress" detection (X4), no echo 
of commands (E0) and low speaker 
volume (LI), and would change the 
length of dialing tones and spaces to 50 
milliseconds (S 1 1 =50) for slightly faster 
tone dialing. 

As for hardware compatibility, the 
1200e can connect with modems using 



either the North American "Bell" 300 or 
1200 baud standards, or the CCITT 
V.21 and V.22 standards used overseas. 
The I200e is approved by the FCC and 
by the Canadian Department of 
Communications, and there should be 
no problem using it with a normal 
telephone line. 

The I200e may have problems work- 
ing with some business phone systems 
that use A lead supervision, because it's 
designed for a standard RJ 1 1 jack; also, 
if you have a two-line phone, or one that 
has a dial light powered by a separate 
transformer, you'll need to plug it 
directly into a wall jack because the 
1200e's line cord and phone jack have 
only two wires and won't pass the 
second line or dial light power. 

The 1200e performed well in our 
tests, with very few (if any) data errors, 
both on local and long distance lines. I 
honestly can't find anything really 
negative to say about the product, so I 
can recommend the Avatex 1200e 
highly to anyone who needs a 1200 baud 
modem. 

(Cinsoft, 2235 Losantville, Cincinnati, OH 
45237, 513-396-7638; $99; with CoCo cable, 
$109; with cable and Autoterm software, 
$139) 

— Ed Ellers 
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Flights iml — 
Up, Up and Away 

Flight Sim I is a flight Simulation 
program for the Color Computer. As a 
user, you fly a large commercial jet from 
one locale to another. To use FlightSim 
1, you need at least 32K of memory plus 
two joysticks (the deluxe models are 
strongly recommended). 

Upon loading FLTSIFl into memory, 
you are presented with a screen that 
simulates an aircraft instrument panel 
(lower half of screen) and the front 
window view from the cockpit (upper 
half)- The screens are in black and 
white, no color output being supported 
by the program. 

Looking at the instrument panel, you 
will find the Airspeed and Power Indi- 
cator which gives the airspeed in knots 
per hour. The Power Indicator keeps 
you informed as to the throttle position- 
ing. The throttle is controlled with the 
left joystick. 

The Attitude Deviation Indicator is 



located in the central-top portion of the 
panel. This gauge shows you the air- 
craft's "deviation" from level flight. By 
watching this, you can tell if the aircraft 
nose is up, down, left or right. 

In addition to these instruments, you 
are provided with a glidescope, altime- 
ter, ROC, HDG and multifunction 
readout. The glidescope, located along 




the edges of the ADI, keeps you flying 
"true" on the radio beam during landing 
approach. An altimeter gives you alti- 
tude above sea level in thousands of 
feet. ROC stands for Rate of Climb; this 
instrument provides readouts of the rate 
of ascent or descent in thousands of feet 
per minute. The HDG, or heading 
gauge, acts as a compass. Other infor- 
mation available to the pilot includes 
fuel status, heading in degrees, cloud 
ceiling, etc. 

Successfully operating the jet is fairly 
complicated, as might be expected with 
a large aircraft. You will need to spend 
a substantial amount of time mastering 
this one. Flight characteristics are 
realistic but unforgiving, just as the real 
thing. 

The main weakness of this program 
is in the graphics display of the outside 
world, as seen from the cockpit window. 
Whether considered alone or against 
the other flight simulations available, 
these graphics are mediocre at best. It 
should be noted, however, that detailed 
graphics are not necessary for a realistic 
flight simulation. After all, the real 
counterparts take off and land in zero 
visibility conditions, using instruments 
alone. 

Instructions for FlightSim 1 are 
contained in a well-written manual, 
complete with "ground school" orienta- 
tion. Putting all the realistic behavior of 
an aircraft into 32K. of memory is quite 
an accomplishment and the authors of 
FlightSim 1 have done this quite well, 

(Tandy Corporation, 1700 One Tandy 
Center, Ft. Worth, TX 76102; $24.95. 
Available in Radio Shack stores nation- 
wide.) 

— Leonard Hyre 
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Phantomgraph — 
Professional Graphs 
on the CoCo 3 

One night at a Color Computer Users 
Group meeting, a new CoCo user came 
up to me and inquired if I knew of a 
good graph-making program for the 
CoCo. He wanted one that could lake 
his spreadsheet data and turn it into a 
graph for business use. My reply to him 
then was that I knew of no such animal. 
If he'd ask me today, however, I'd have 
just the program he needs. It is a new 
one called Phantomgraph. 

Phantomgraph is one of the latest 
releases from Tandy for the Color 
Computer 3. It requires" 1 128 K memory 
and either a mouse or joystick. Like all 
the new Tandy releases for the CoCo 3, 
it comes on an OS-9 Level II disk. 
However, because it has all of the 
necessary OS-9 operating system on the 
disk, the regular OS-9 system disk is not 
needed. 

The manual that comes with the 
program is quite good. It is designed in 
the form of a tutorial and takes you 
through the features of the program 
step by step. You begin by making very 
simple graphs and then move on to 
more advanced ones. 

As 1 said, the manual is quite good, 
but it does leave out a few things. The 
most important thing concerns the Save 
File procedure. If you follow the proce- 
dure as outlined in the manual, you'll 
find yourself staring at the screen won- 
dering if your disk drives have done 
another one of those "silent deaths" — 
when the contacts on the disk-pak get 
corroded and need cleaning, and the 
drive does not come on. Well, the 
problem is not with the disk-pak this 
time, it is with the program documen- 
tation. Simply follow the steps in the 
manual for saving the file to disk and, 
after you have entered the filename, do 
not move the cursor arrow out of the 
dialog box, just move it off the name 
line and press the pointer button. (The 
same goes for loading in a file.) 

Another problem area concerns the 
demo "Camp Cost" graph that you 
make in the tutorial portion of the 
manual. Phantomgraph runs in a 
graphics window. Various window types 
allow for only a certain number of 
colors. In the Type 7 window, the 
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program allows only four colors; in the 
Type 8 window, it allows eight. The 
manual does not tell you what type of 
window the program initially comes up 
in when running the program from the 
"out-of-the-box"disk. Therefore, when 
you do the Camp Cost graph, and it 
draws on the screen, you'll notice part 
of your graph is missing. This is because 
the program comes up in a Type 7 
window, and one of the colors you were 
directed to use is not supported by this 
window mode. To get a Type 8 window 
and the full eight colors, you either have 
to go back and modify the start-up file, 
create another window, or boot up with 
a regular OS-9 Level II system disk and 
initialize the W8 window screen. (Or 
you could simply change the color of 
that particular section of the demo 
graph to one that is recognized by the 
Type 7 window.) 

The color limitation is really not all 
that limiting, because the program 
makes use of numerous texture pat- 
terns, as well. Therefore, a number of 
color/ pattern combinations can be used 
lo delineate the various items of data in 
your graphs. 

Phantomgraph can make four pri- 
mary types of graphs; line graphs, bar 
charts, pie charts and scatter charts. 
You can also display some of the graph 
types in more than one format. For 
example, you can display bar charts 
that are standard, grouped, columnar, 
and so on. 

The program makes extensive use of 
"Dialog Boxes," i.e., pull-down menus. 
This is another example of the ease of 
programming power that comes with 
OS-9 Level II, as these are really no- 
thing more than small overlay windows. 
In essence, the program uses the pop- 
ular poinl-and-elick method of opera- 
tion. Just move the pointer to one of the 
main menu items listed across the top 
of the screen, click a button, and a 
submenu appears. 

The graphs may be drawn on the 
screen or printed out. The screen draw- 
ing is fast — again another plus with 
using OS-9 Level 11. Additionally, a 
series of graphs may be tied together 
into a slide-show for presentation. 
Phantomgraph contains a sequence 
editor to allow for the creation of a 
sequence file (called a Drawing file). 

For hard copy printouts, the program 
contains a unique printer driver. Instead 
of merely supporting the Tandy mode 
of DMP printers, it also supports the 
IBM mode of its printers. 

One of the most time-consuming 
aspects of using Phantomgraph is enter- 
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ing data on which to base a chart. But 
the programmer has even made this a 
little easier. The Utilities section of the 
main menu contains two utility files, 
under Convert. They are DYNfl, which 
converts data from DynaCak spread- 
sheet files into data usable by Phantom- 
graph, and 5YLK, a procedure to con- 
vert Symbolic Link (SYLK) files to 
DynaCalc files, which can then be 
converted to Phantomgraph data. 

Aside from the couple of bugs in the 
manual, this program is excellent, and 
the graphs it produces are first-rate. The 
most amazing thing about the graphs is 
that if you don't like the way the data 
looks in a pie chart, for instance, you 
can simply select another graph type 
and have it quickly redrawn. The graphs 
are suitable for business use, for use at 
the PTA, for home use, school use, or 
just about anywhere you want lo make 
a good presentation. In short, Phan- 
tomgraph is an excellent program. 

(Tandy Corporation, 1700 One Tandy 
Center, Ft. Worth, TX 76102; $39.95. 
Available in Radio Shack stores nation- 

ff J- & — Kerry Armstrong 
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Chemistry Tutor — 
An Excellent 
Learning Tool 

Chemistry Tutor is a two-disk set for 
the CoCo 1, 2 or 3. The disks are not 
copy-protected and can be backed up 
for your own protection. The program 
can be booted with the DOS command 
or by typing RUN "BOOT". The user is 
first presented with four options on a 
menu screen: Start Text, Start Test, 
Element Data and End Program. 

The first option, Start Text, provides 
the user with six lessons covering the 
various technical aspects of the ele- 
ments. The information provided is 
based on text found in various books 
such as The New Encyclopedia Britan- 
nica and General Chemistry Principles 
and Structure. The information pro- 
vided consists of various definitions 
such as, "Matter is defined as anything 
that takes up space and has mass. Mass 
is the amount of matter that the sub- 
stance possesses and has a unit of 
weight." 

Obviously, the intent of this program 



is to assist a person in the study of 
chemistry. The information provided 
can be found in text books, but many 
people learn faster and more thor- 
oughly when prompted by a computer. 
At various places throughout the les- 
sons, a high resolution display of the 
element or definition is presented. The 
periodic table is also presented in the 
Hi- Res mode. 




Stan Test provides the user with a 
multiple-choice test on each of the six 
available lessons. The user is prompted 
with the correct answer if an incorrect 
one is input. A continuing score is 
provided so that the student can keep 
track of his or her progress. 

The third option, Element Data, 
provides the user with a submenu of 
four additional options: Study Periodic 
Table, Find Element Data, Quiz on 
Periodic Table and End This Program. 
If you choose to study the periodic 
table, you can do it either sequentially 
or randomly from the 106 available 
elements that are loaded into the com- 
puter's memory. If you choose to find 
element data, you can look it up by 
name, atomic number or atomic sym- 
bol. 

The last option is a quiz on the 
periodic table, and the student can be 
quizzed by element name, atomic 
number or atomic symbol. The stu- 
dent's score is also monitored during the 
test and presented on the screen. 

I found Chemistry Tutor to be an 
excellent learning tool. The programs 
are well-structured, and the many 
graphics pages are very well-done and 
of textbook quality. The programs are 
easy-to-use, user-friendly and self- 
prompting. 1 believe chemistry students 
and teachers will benefit from this 
software, and 1 recommend it without 
reservation. 

(A to L Unlimited, Software Division, 901 
Ferndale Blvd., High Point, NC 27260, 919- 
882-6255; $42 plus S3 S/H) 

— Robert Gray 
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Graf Find — 
Organize Your 
Picture Files 

Graf Find is a handy graphics utility 
to help you organize your CoCo Max, 
Graphicom 11 and MacPaint picture 
files. 

It allows you to view, rename, kill and 
transfer pictures from one disk to 
another easily and recognizes all stand- 
ard 6JC or 12K graphics picture files, 
regardless of extensions such as .MAX, 
.BIN, etc. 

The program supplied on disk is not 
copy-protected, so making backup cop- 
ies for your own use is not a problem. 
The program is written for all models 
of CoCo with at least 32K of RAM. It 
works fine on the CoCo 3, as well, but 
your pictures will appear in black and 
white if you are using the CM-8 Tandy 
RGB monitor. 

The program works with RS-DOS 
1.0 or 1.1 and the author claims that it 
works with ADOS, too, but I did not 
verify that. I did try it with RS-DOS 1,1 
and ADOS 3 on my CoCo 3, and in 
both cases the program booted with the 
DOS command. The documentation is 
good and easy to follow. Although the 
program is not difficult to use, a built- 
in help file is available by typing ? at the 
user prompt. 




The program is loaded in and, after 
a colorful title screen, the user is asked 
questions relating to the number of 
drives in use and to which drive possible 
fde transfers will be sent. After the disk 
files are read into memory, they are 
displayed on the Hi-Res screen in two- 
column format with their appropriate 
file extension. The user can either view, 
transfer, kill or rename any file on the 
disk. You can also enter an N for a new 
disk without having to break out of the 



program and restart it. I tried each 
command and did not have any trouble 
manipulating the files contained on 
several of my picture disks. 

The only possible problem I encoun- 
tered was that the author (Steve Rick- 
etts) used the high speed and super high 
speed pokes in the program. While these 
pokes are desirable from an operational 
viewpoint and improve overall program 
operation and flow, they do create a 
problem on some of the older models of 
the Color Computer. Fortunately, the 
pokes are pointed out in the documen- 
tation and can be removed from the 
BASIC listing using CoCo's built-in line 
editor. I doubt that CoCo 2s would have 
any problem with these pokes. The 
program ran fine on my CoCo 3, but I 
had to remove the pokes before it would 
run on my old CoCo I. If you buy this 
program and your computer locks up, 
be sure to remove these offending pokes 
after loading, and edit the listing before 
running. 

Graf Find is a good utility program 
and is well-written for the CoCo picture 
buff. If you have lots of pictures and 
want a way to move them around easily, 
I suggest you consider this program. 

(RainyDay Software, 10625 SE 362nd Ave., 
SP.B-32, Boring, OR 97009, 503-663-2423; 
510) 

— Jerry S em ones 
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CoCo1,2&3 



CoCo XT - 
Well-Designed Hard 
Drive Interface 

Many CoCo users reach a point 
where they consider the use of a hard 
drive system. Three conditions have 
made this consideration less practical 
than it might have been. First, the cost 
of hard drive systems for the CoCo have 
not been "user-friendly. " Secondly, 
there is a lack of general knowledge on 
the part of most users about how to put 
such a system together. Finally, most 
hard drive systems available in the 
CoCo Community have only been usa- 
ble under OS-9. 

The CoCo XT and CoCo XT-RTC, 
from Burke & Burke, address all three 
of these concerns quite well. It is pos- 
sible to set up a 20- Meg hard drive 



system for around $400 using the CoCo 
XT interface. To set up such a system 
requires little technical expertise. If you 
purchase the optional Hyper- (JO soft- 
ware from Burke & Burke, you can use 
the hard drive system without going to 
OS-9. As shipped, the interface includes 
a wide variety of drivers and software 
for building a descriptor specific to your 
hard drive for use under OS-9. 

The CoCo XT is designed to accept 
the common and popular Western Dig- 
ital WD1002-WX1 and WDI002-27X 
(RLL) hard drive controllers used in 
IBM PCs and compatibles. These con- 
trollers are often shipped with bare hard 
drives as a package. It is easy to find 
low-cost 20- and 30-Meg drives in many 
of the "clone" magazines and catalogs. 
It isn't uncommon to find an ad for a 
bare 20-Meg drive with controller for 
around $260. Just make sure the con- 
troller is one of those listed above when 
you order the hard drive. In addition, 
you will need to purchase a case with 
power supply to house your new drive. 
These can be found through advertisers 
in THE RAINBOW. 

Installation of the system is fairly 
straightforward and is well-covered in 
the user's manual accompanying the 
CoCo XT. You install the controller in 
the CoCo XT interlace and connect the 
data and control cables between the 
controller and the drive. Mount the 
drive in the case and connect the power 
supply cable. Put the top on the hard 
drive case and enclose the interface/ 
controller combination in its protective 
"sandwich," Plug the interface into Slot 
3 of your Multi-Pak Interface and you 
are ready to begin software installation. 

Simply boot OS-9 (all versions are 
supported) and follow the instructions 
in the CoCo XT user's manual. When 
creating the device descriptor for your 
particular hard drive, you will be asked 
for specific parameters concerning that 
drive. These can be found on the data 
sheet, which should accompany the 
drive when you purchase it. In addition, 
Burke & Burke has thoughtfully pro- 
vided a table of specifications for the 
more common hard drives. 

Since I had recently pulled a 20-Meg 
Seagate drive with a WD 1002 controller 
out of my compatible and had a spare 
drive case with power supply on hand, 
I was ready to go when I received the 
CoCo XT interface. All told, installa- 
tion was complete in about an hour. Of 
course, then came the somewhat tedious 
task ol copying all of my commands and 
software to the hard drive. Proper use 
of the Dsawe command lessened the 
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severity of this chore, however, and 1 
was soon under way. 

The interface used for this review was 
the CoCo XT-RTC, This unit is identi- 
cal to the CoCo XT except that it 
includes a hardware real-time clock. In 
addition to the driver and descriptor 
software, Burke & Burke provides 
several utilities for setting and reading 
this clock. Now when I boot my system, 
it tells me what time it is. I found the 
clock to be a handy and very welcome 
addition — well worth the additional 
$30. 

From an OS-9 standpoint, the Burke 
& Burke interface presents a very viable 
option to the serious CoCo user. While 
installation may require some limited 
working knowledge of OS-9, the proce- 
dure is explained thoroughly. The inter- 
face is well-designed, and it is obvious 
that considerable thought went into the 
project during its conception. I com- 
mend Burke & Burke for providing such 
an alternative to the CoCo Community. 



(Burke & Burke. P.O. Box 1283, Palatine, 
1L 60078, .112-397-2898; $69.95; w/real-lime 
clock, $99.95) 



— Cray Augsburg 
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CoCo 3 



ColorVenture 
RAMDISK — 
Instant Access for 
the CoCo 3 

ColorVenture has released their ver- 
sion of the popular RAM disk for the 
CoCo 3. The extra memory available in 
the 5I2K CoCo 3 makes the use of a 
RAM disk not only practical but fun. 
The ColorVenture RAMDISK sets up 
two 35- or 40-track, memory-resident 
disk drives, providing instant access to 
programs or files stored in them. It's 
reset-protected and lets you use up to 
four physical drives in addition to two 
RAM disks. If you have ColorVenture 's 
Primer Lightning spooler program, you 
will have the advantage of the RAM 
disks and printer spooler without losing 
any BASIC memory. All of the present 
disk commands are supported, and you 
can save your default setup so that you 
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won't have to reconfigure it every time 
you boot up the computer. 

A two-page, easy-to-follow instruc- 
tion sheet is provided, making installa- 
tion quick and easy. The program is not 
copy-protected, so make backup copies 
for your own peace of mind. 

After loading, you are required to 
answer whether or not you want to use 
the default settings. New users should 
answer this with an N if this is the first 
use of the program. 

If you answer no to the default ques- 
tion, you are provided with prompts 
asking what physical drives you have 
and by what number to designate them. 
In my case, since I have two drives, I set 
up drives and I as my physical drives, 
and drives 2 and 3 as my RAM disks. 
If you goof, you can restart the whole 
process by simply pressing the BRHAK 
key. When you are finished you will 
have four drives available. 

To see the R A M disks in action, I put 
a disk chock full of games and utilities 
in Drive 0, typed BACKUP TO 2, and 
pressed ENTER. As usual, the Drive 
light came on, the drive churned a bit 
and then stopped. Typing DIR 2 re- 
vealed that the entire contents of the 
disk in Drive had been copied onto the 
RAM disk designated as Drive 2. I was 
then able to LOAD or LOADM any of the 
programs and RUN or EXEC them with 
instant speed. 

The RAM disk is really fast in this 
regard, but unlike a physical disk that 
remembers its contents when the power 
is turned off, the RAM disk is volatile. 
That is, if you turn off the power with 
important data stored in it, it will be 
lost! So you must remember to fre- 
quently save new programs or data in 
thc v RAM disk to a real honest-to- 
good ness floppy. 

Because RAMDISK is memory- 
resident, some programs will not work. 
One case in point is Telewriter-80 the 
enhanced, 80-column, CoCo 3 version 
of the popular Telewriier-64 word 
processing program. OS-9 Level II does 
not work, either. There may be prob- 
lems with other programs due to con- 
flicts in memory allocation, but most of 
the software I tried worked fine. 

One other feature I was impressed 
with was a provision to recover your 
data or program stored in a RAM disk 
in case of a computer crash — provided 
you don't turn off the computer in 
frustration. 

I liked ColorVenture RAMDISK. I 
found it easy-to-use and a perfect com- 
panion to my CoCo 3. While no RAM 
disk is ever as safe as a real floppy due 



to its RAM dependency, it does provide 
an excellent method for instant access 
to frequently used programs and data 
that have been saved to a floppy. 

(Dr. Preble's Programs, 6540 Outer Loop, 
Louisville, KY 40228, 502-241-6474; $19.95 
plus $2.50 S/H) 

— David Gerald 
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CoCo 3 



The Director — 
Create Exciting 
Graphics 
Presentations 

The Director is the sequel to the My 
Artist program produced by SEESOF 
in 1987. (See rainbow Reviews, Oc- 
tober 1987.) The Director is a graphics 
sequencer, but it goes beyond the ordi- 
nary. It allows the user to produce 
graphics displays with sound or music, 
color changes and time delays. 

The Director requires a Tandy Color 
Computer 3 and may be run on a 
cassette or disk-based system. The 
program is written in BASIC, but it is 
fast. It makes use of numerous menus 
to allow the user to produce a short 
program file that will run a graphics/ 
sound sequence. The program's manual 
is well-written and thorough. 

What makes The Director special is 
its ease of use. With all the available 
sub-menus, the user can walk right 
through the program and create an 
exciting graphics presentation. 

The first step in creating a sequence 
is to gather together the picture files you 
will be working on. Tim Director is not 
a drawing program, so these picture 
files have to be created with other 
programs or taken from other sources. 
Because The Director is essentially a 
sequel to My Artist, the picture formal 
the authors decided on was the same 
format used by that program. However, 
the programmers have included a CON- 
VERT utility program on the program 
disk that will capture almost any CoCo 
3 HSCREEN picture and convert it to the 
My Artist format. 

Bear in mind that the CoCo 3 Hi-Res 
mode graphics do take up a lot of disk 
space, so you will not be able to get too 
many different picture files on a disk. 
This is the greatest limitation to the 
sequencer program. Fortunately, the 



actual "sequence" program thai The 
Director creates is not very long and 
takes little disk space. 

I suggest the next step you take is to 
make some rough pencil sketches of 
your pictures and note the color codes 
for each major area of the picture. (You 
may recall that one of the exercises in 
the CoCo 3 manual was to make a list 
of each of the 64 color codes and name 
each color. It will be extremely helpful 
to you to find thai old list, because you 
are going to need it.) 

The reason for the sketches is quite 
simple. One of the major features of The 
Director is lhai it allows you to make 
changes in the various colors in your 
pictures. You may change individual 
palette slots or all of them on the fly. 
This makes for some degree of anima- 
tion in the sequence. This feature, 
coupled with the Time Delay feature 
and the Repeat feature, can add a little 
life to your graphics presentations. 

The Time Delay feature allows the 
user to set the amount of time a picture 
will remain on the screen before the next 
event happens. The event could be a 
color change, a picture change, or a bit 
of sound or music. Repeat allows the 
user to set up cycles of events that can 



be done over and over again to make a 
larger presentation. 

Similar to Repeat is the Jump func- 
tion. Jump is used to jump or skip over 
several events to another starting place 
in the sequence. Essentially, a sequence 
is nothing more than a list of events. 

The Music/ Sound features can be 
handled in one of two ways — either by 
utilizing a prerecorded cassette tape, 
which the sequence list will turn off and 
on at the designated time, or by utilizing 
BASIC'S sound functions. Sound effects 
are created by the tone and duration 
functions of the CoCo 3 and, coupled 
with the REPEAT command, fairly de- 
cent sound effects can be created. Music 
may be created using Basic's PLRY 
commands. Again, the Repeat function 
may be used to make longer musical 
pieces. 

Once the user has gone through all 
the various steps to create a graphics 
sequence, he or she can run the sequence 
list while still in The Director, This 
allows the user to fine-tune or edit the 
sequence and then save the finished 
product to disk or cassette. Likewise, 
the user can always reload the sequence 
file into the program and add to or edit 
it further. 



When the sequence has been saved to 
the disk with the picture files, the editor 
program is no longer needed. The 
authors have provided a short program 
on the program disk called DISPLAY, 
which they have included as shareware. 
This means the user can feel free to 
provide copies of his or her graphics 
presentations to others. DISPLAY does 
only one thing. It allows the user to load 
in a sequence file and then displays the 
graphics/ sound sequence for viewing 
and listening. 

You don't have to be limited to your 
CoCo 3 and monitor to show off your 
artistic talents. The CoCo 3 does have 
true video and audio output jacks that 
can be hooked to a VCR, and with the 
graphics and sound capabilities, some 
pretty neat videos could be made. Think 
about it. Like I said before, The Direc- 
tor is not just an ordinary graphics 
sequencer. 



(SEESOF, P.O. Box 574, Beaufort, SC 
29901, 803-524-01 16; The Director, S39.95; 
My Artist and The Director, $49.95) 



— Kerry Armstrong 



Still keeping the books the way GrancJ^did? 
Then you need CoCo- Accountant 



Tired .of scrounging through 
old shoeboxes full of receipts, 
canceled checks and bills? 
Looking for an easy way to 
organize your finances when the 
tax man calls? Then you need 
CoCo-Accountant, the best- 
selling home and small business 
accounting program for the 
Color Computer, All you have to 
do is set up a chart of accounts 
and begin entering transactions. 
Checks, credit card expenses, 
income. In any order. Just toss it 
in and CoCo-Accountant sorts it 
out. No fuss, no muss, no mess. 

When you're through. Coco- 
Accountant will dazzle you with 
on array of reports that will 
answer the three basic questions 
we all ask about our finances: 
Where did it come from? Where 
did it go? And what can I deduct 
from my taxes? 

Here's what it can do for you: 



& List and total expenses and in- 
come by month. 
^ List and total expenses and 
income by account, for any 
month or the whole year. 
<=> List and total expenses or 
income by payee or income 
source for any month or the 
whole year, 

o Track, list and summarize tax- 
deductible expenses. 
o Track, list and summarize ex- 
penses subject to sales tax. Even 
calculates total sales tax you 
paid! 

<=> Produce a printed spreadsheet 
showing activity by month and 
account for the whole year! 
& Balance your checkbook, of 
course! 

<-> Sort entries by date and store 
files on tape or disk. 
«> Up to 900 entries in a single file. 
<=> Requires 64K CoCo or Coco 3. 




^ 
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Coco-Accountant is $34.95 
on tape or disk. Be sure to 
specify which you want 
when you order. We accept 
VISA and MasterCard. COD 
orders, add $3.00. Send 
check or money order to the 
address below or call our 
toll-free order line. For infor- 
mation, call 301-521-4886. 



Federal Hill Software 8134 Scotts Level Rd. Baltimore, Md. 21208. Toll-free orders 800-628-2828 Ext. 850 
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The following products have recently been received by 
THE RAINBOW, examined by our magazine staff and 
issued the Rainbow Seal of Certification, your assurance 
that we have seen the product and have ascertained that 
it is what it purports to be. 



Sp? 



Avatex 1200e, a 1200/300 bps stand- 
alone modem designed for the home, 
school or portable computer. For the 
CoCo !, 2 and 3. Ciiisoft. 2235 Losan- 
tivitle Avenue, Cincinnati, OH 45237, 
(513) 396-7638; $99; $109 w I CoCo 
cable; $139 wj cable and Auto term. 

Big Pix 3, a 64K graphics editor that 
produces a picture that is 456 pixels 
wide and 565 pixels high. For the CoCo 
1, 2 and 3. Toihian Software, Inc., Box 
663, Rimersburg, PA 16248; $24.95. 

EZ Writer, a 32K ECB word processor. 
Features allow you to save, retrieve and 
revise letters on tape or disk; save 
mailing lists; and print labels. For the 
CoCo 1, 2 and 3. E.Z. Friendly Soft- 
ware, Hun on & Orchard Streets, 
Rhinecliff, NY 12574. (914)876-3935; 
$19.95. 

Graphic Echo II, a 32K graphics screen 
dump available on disk or tape. For the 
CoCo I, 2 and 3. Tothian Software, 
Inc., Box 663, Rimersburg, PA 16248; 
$14.95. 

Home Publisher, a 128K desktop pub- 
lishing program. Detailed graphics 
images and different sizes of text allow 
you to produce newsletters, memos, 
certificates, or any other small docu- 
ment using your computer and an 
ordinary printer. For the CoCo 3. 
Tandy Corporation, 1700 One Tandy 
Center, Fort Worth, TX 76102; $39.95. 
A vailable in Radio Shack stores nation- 
wide. 



Iron Forest, a 128K light phaser game. 
Your mission is to protect the sacred 
White Dove. Use your phaser to zap the 
evil creatures that inhabit the forest and 
threaten the dove. For the CoCo 3. 
Diecont Products, Inc., 6715 Fifth Line, 
Milton, Ontario, Canada L9T 2X8, 
(416) 878-8358; $28.95 U.S.; $38.95 
Cdn.; light phaser wj interface, $34.95 
U.S.; $49.95 Cdn.; game and phaser 
together, $59.95 U.S.; $83.95 Cdn. 

Mr. Corey, a 64K graphics Adventure. 
As a member of a secret government 
organization, your mission is to spy on 
the notorious Mr, Corey. Unfortu- 
nately, you are captured and find your- 
self in a room with a nuclear time bomb. 
The fate of the world lies within your 
hands. For the CoCo 1, 2 and 3. Val- 
kyrie Software, P.O. Box 2120, Mon- 
roe, NY 10950. (914) 783-0191; $19.95 
plus $2 Sj H. 



<|>The Power Stones of Ard, a I28K 
Adventure game. The object of the 
game is to find the Spirit Stone of Ard. 
Create your own character and begin 
your journey into a land of magic and 
monsters. For the CoCo 3. Three C's 
Projects, P.O. Box 1323, Hamlet, NC 
28345, (919) 582-5121: $18. 

Sub Battle, a World War II Simulation. 
For the CoCo 3, Epyx, 600 Galveston 
Drive. Redwood City, CA 94063; 
$29.95. Available in Radio Shack stores 
nationwide. . u.ott 

•yiSjittimt) n 1?KK graphics generator 
that features 320-by-192 16-color 
graphics, pull-down and page-down 
point-and-click menus, full screen 
workspace, nine different fonts, and 
more. For the CoCo 3. Elec-Soft, 803d 
W. 47th Street, Norfolk, VA 23508, 
(804) 451-1255; $12. 

'fp First product received from this company 



The Seal of Certification program is open to all manufacturers of products 
for the Tandy Color Computer, regardless of whether they advertise in 
THE RAINBOW, 

By awarding a Seal, the magazine certifies the product does exist — that 
we have examined it and have a sample copy — but this does not constitute 
any guarantee of satisfaction. As soon as possible, these hardware or 
software items will be forwarded to THE RAINBOW reviewers for 
evaluation. 

— Judi Hutchinson 
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It/L TOM MIX COMPANIES 



FLIGHT 16*t - This is the very finest flight simulation 
program on the market today. Flight 16 will work with 
all color computers. Flies very much like a Cessna 150. 
Is a full instrument aircraft with sound effects and out- 
trie-window graphics. As a REAL bonus feature, you may 
design your own airports and flight areas. 

$34.95 

WORLDS OF FLIGHT't - A real-time flight simulation 
of a sophisticated ultra-light aircraft which generates 
panoramic 3-D views of ground features as you fly in any 
of nine different "worlds." The manual included explains 
the instrument panel, the basis of flight control, etc. For 
the serious simulation buff! 

S30.95 32K 

P51 MUSTANG ATTACK/FLIGHT SIMULATION *t - The 

ultimate video experience! For the first time ever, two 
CoCo's can be linked together via cable modem. (If play- 
ing via modem, both computers require a copy of the 
program.) Or play alone and sharpen your skills against 
a non-combatant computer drone. 

330.95 32K 

APPROACH CONTROL SIMULATION* - "Caught in a 
blinding snowstorm, two jet airliners are on a collision 
course. Hundreds of lives are at stake! A high-speed 
disaster is inevitable unless you act fast. . ." This and 
many other scenarios await you as the Air Traffic Con- 
troller. Experience firsthand challenges, frustrations and 
pressures felt by all Air Traffic Controllers! 

$25.95 32K 

THE KING' t - This is a color computer classic! Looks 
and plays like the popular arcade game. Contains the 
same four screens as the original: barrels, pins, jacks. 
and conveyors. Super graphics! 

$25.95 32K 

TRAPFALL't - The "pitfalls" in this game are many. 
Fight your way through Ihe jungle collecting hidden 
Ireasures as you go. 

$20.95 16K 

KATERPILLAR ll*t - The CoCo has needed a perfect 

centipede-type game since day one. You will throw all 

imitations aside when you see this. 

$20.95 16K 

BUZZARD BAIT't - We've done it again. Outstanding 
high resolution graphics and sound make this "joust" 
type game a must for your software collection. One or 
two players. 
$20.95 32K 



MS. MAZE't - Ms. Mare combines brilliant color, high 
resolution, detailed graphics and music to make it look 
and play like the arcade version. It is the closest thing 
to the arcade Pac games that we've seen for the CoCo! 
Arcade Aces — this one's for you! 

$20.95 32K 

CUBER'f - The hazards faced by Cuber are many! Help 
him change the colors of the pyramid while avoiding the 
many dangers always present. 

S20.95 32K 

VEGAS GAME PAK't - Now you can bring Las Vegas 
home with you! This package contains six different 
games: Video Keno, Video Poker, and Video Blackjack, 
plus three slot machine lookalikes, Bar 5, 3 Line, and 
Right/Left. 

$24.95 16K 

GOLD FINDER't - Here's the quality you have come 
to expect from TOM MIX! While avoiding enemies, pick 
up all the pieces of gold along the way; then ride, the 
elevator to the top to solve each level. Sixty-nine levels. 

PLUS now you can create your own levels. 

$20.95 32K Disk only 

THE SAILOR MAN*t - Avoid the punches of the Bigfat- 
badguy and the flying bottles thrown by the Olduglysea- 
woman to rescue Elsie and win her heart! One or two 
players. More great sound and graphics from the author 
of "The King!" 

$25.95 64K 



SPECIAL OFFER: 

Order two, take $5.00 off total 
Three or more, take $8.00 off total 



MONEYOPOLY't - Now you can play the popular board 
game on your color computer! Probably the most realistic 
computer board game simulation ever. Contains all the 
features of the original game. Two to four players. 

$20.95 32K 

DRACONIAN *t • Your mission is to destroy all of the 
enemy bases within each sector, rescue as many 
astronauts as possible and dock with the friendly base 
at the top of the sector. Your spaceship can move in eight 
different directions. An exciting program with outstanding 
graphics and sound! 

$20.95 32K 



ARCADE GAME SALE 

NOW! Here's your chance to have your own collection of Arcade 
favorites: 




OR: 2 packages only $94.95; 3 packages only $139.95 
Each package contained on more than one unprotected diskette (Sorry, 
disk only). This is high quality software that formerly sold for as high 
$34.95 each. 
Please add $4.00 shipping on this special offer only. 



elec'TRON't - Patterned after the popular arcade game, 
there are four men on your team and four subgames to 
complete. 

$20.95 16K 

THE WILD WEST - CoCo III Only - The notorious 
desperado Black Bart has escaped from jail and is on 
his way to Dry Gulch to recover his hidden fortune. Can 
you capture him? Four voice music and sound effects 
and a vocabulary of over 100 words! 

$20.95 Disk only 

WIZARD'S DEN* - Another of our outstanding graphic 
adventures! You must recover the Gem of Damocles, 
stolen by the Evil Wizard. His magic is strong and he 
can make you see things that don't exist! 

$20.95 64K Disk only 

LUNCHTIME'f - Your chef. Peter Pepper, is surround- 
ed! Dodge pickles, hot dogs and eggs while building ham- 
burgers. Fast paced action for either one or two players. 

$19,95 32K 

BREWMASTER't - Move along the end of the bars ser- 
ving beers to your thirsty customers, but watch out for 
falling glasses and rowdy customers! 

$15.95 32K 

MAUI VICE't- Step into the shoes of Crock and Bubbs 
in this graphic adventure and gather evidence. A new 
story generated each time you play! 

$20.95 64K extended basic, Disk only 

CHAMBERS *t - Loosely based on Cosmic Chasm, in 
each level you must destroy all of the evil creatures In 
all there are 20 series of chambers with 20-35 intercon- 
nected rooms. 
$15.95 32K 

DRAGON SLAYER' - Save the villagers of Pendor from 
Icarus, the bloodthirsty dragon! He lives in a cave way 
up in the mountains, which is a treasure chest full of gems 
and cashbags. Be on the lookout for enemies and bar- 
riers at all times! Ten levels with sixteen rooms per level; 
over 160 exciting screens. 

S20.95 32K Disk only 

VEGAS SLOTS - CoCo III Only - Seven of the most 
popular slot machine games found in Vegas are yours 
for the price of one: MultiBars, Fruit MultiBars, Righl- 
LefVLefi-Right, Lucky Dollar, Melons and Bars, Fruit and 
Bar 5. Designed to be as real as being there. One of the 
most outstanding programs we have ever offered. 

$29.95 Disk only 

VIDEO CARDS & KENO - CoCo III Only - Play Video 
Poker, Jokers Wild, Blackjack, and Keno. These games 
are so real you expect to see Wayne Newton walk by! 
Outstanding graphics and movement. Wanna Bet? 
$29.95 Disk only 

TEACHERS DATABASE II* - Allows teachers to keep 
computerized files of students. « Up to 100 students, 24 
items per student • Statistical analysis of scores • Grades 
can be weighed, averaged, percentaged • Test result 
graphs/grade distribution charts 
$59.95 64K TOBII Disk Only 

$42.95 32K TDB 

More educational software available. 

TOM MIX SOFTWARE 

RO. Box 201 

Ada, Michigan 49301 
616/676-8172 

• Specify tape or disk when ordering 

* Add $3.00 postage/handling 

■ Ml residents add 4% sales tax 
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Memory Souped Up, Running Hot 

My 51 2 K memory card from Disto 
lends to run very hot. Also, the heat sink 
in the Co Co 3 runs very hot. After some 
hours of use. the computer crashes, and 
memory check programs reveal errors 
and sometimes crash themselves. Any 
ideas? 

Franz C Shattuck 

(GCSCOMP) 

Hillsboro, NH 

First of all, 1 doubt that the make of 
the memory upgrade board is in any 
way the problem. It certainly is true that 
the power supply of the CoCo 3 runs its 
power transistor and associated heat 
sink quite hot in "normal" operation. A 
cure could involve replacing that tran- 
sistor with a beefier T03 cased unit, and 
whether or not you changed the transis- 
tor, you'd have to mount the regulator 
transistor on a more massive heat sink. 

David Schoepf of Vicksburg, Missis- 
sippi, found this fix to be very effective 
in cutting down on the heat inside his 
CoCo 3, which had become intolerable 
when he added his 5 12K. upgrade board. 
He observed that, before, the heat sink 
on the transistor was so hot you could 
not touch it without being burned. 
When he substituted a big, thick alu- 
minum plate for the wimpy little heat 
sink Tandy supplied, the plate ran 
warm, but not too hot to touch. This is 
rather a technical hassle, and many 
folks consider using fans instead. 

1 am not a fan of fans, myself ... I 
hate the noise they make, and feel the 
CoCo design should be able to run with 
convective cooling alone. But fans do 
offer the easiest solution to this sort of 
problem. It also seems to be the case 
that different brands and speeds of 
memory chips for the 512K. board run 



Martin H. Goodman, M.D., a physi- 
cian trained in anesthesiology, is a 
longtime electronics tinkerer and out- 
spoken commentator — sort of the 
Howard Coseil of the CoCo world. On 
Delphi. Marty is the SIGop of RAIN- 
BOW'S CoCo SIC and database man- 
ager of OS-9 Online. His non-computer 
passions include running, mountaineer- 
ing and outdoor photography. Marty 
lives in San Pablo. California. 
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at varying temperatures. Current wis- 
dom would indicate that the best chips 
for a 5I2K upgrade board are NEC 
brand 150 or 120 NS chips. You might 
want to consider trying out a different 
set of memory chips in your board. 

Finally, you might want to experi- 
ment with a different timing fix from the 
one recommended by Disto. Disto and 
most other 512K board makers recom- 
mend cutting C65 and C66 off the board 
to fix the timing for their 512K board. 
A different fix, one that some report is 
successful in making their DRAMs run 
a little cooler, is the one recommended 
by Hemphill Electronics for their 
board. They have you leave both C65 
and C66 in place and instead have you 
put a 47-ohm resistor in parallel with 
R22 on the board. R22 is a 120-ohm 
(brown-rcd-brown-gold) resistor. You 
may want to try this, though you will, 
of course, have to reinstall the caps you 
removed or disconnected originally. 

Testing the Environment 

How can I detect whether my pro- 
gram is running on a CoCo 3 vs. a Co Co 
I or 2? 

Jim Sparks 
(ESCOMAN) 
Aurora, CO 

There are any number of ways to do 
that. Roger Bouchard (Harbie) of 



Montreal, Quebec (one of our more 
knowledgeable experts on the intraca- 
cies of CoCo 3 Disk BASIC), suggests 
checking location $E7. If it's 0, 1 or 2, 
you've got a CoCo 3. Those numbers 
will also tell you which text screen mode 
the CoCo 3 is in at the time. 

My own suggestion would be to see 
if you are able to both write to and read 
from the first six bits of the palette 
registers at SFFBO through SFFBF 
That is, choose a few of those registers, 
read what you find in them, save that, 
then try writing stuff into them and 
seeing if you can recover that same data 
from those registers when you read 
them. Be sure to mask out (BND 
00111111) the high order two bits of 
those registers when you do both the 
reading and writing. And, when done 
with this test, be sure to restore to those 
registers what you found in them orig- 
inally. 

If you find you can write data into 
and then read it out of the registers in 
that range, then you have a CoCo 3. If 
not, you have a CoCo 1 or 2. Note that 
Roger's suggestion is dependent on the 
way the CoCo 3's "superRASic" ROM 
software works, whereas my suggestion 
is independent of the BASIC ROM and 
relies on a hardware characteristic of 
the GIME chip. 

Horizontal Overscan 

I'm having trouble with a CM-3 color 
composite video monitor when using it 
with a CoCo 3. In the 32-, 40- and 80- 
column modes, two or three characters 
are cut off on both the right- and left- 
hand sides. Can you help? 

Dave Barnes 
(GLENS1DE) 
Glenside, IL 

This is not surprising. You see, when 
composite video color monitors and 
TVs leave the factory, they tend to be 
adjusted for folks who will be using 
them to show TV and VCR material. 
Now, TV and VCR viewers don't want 
to see even the slightest amount of black 
border around their pictures on the 
screen, so the sets have their horizontal 
width adjusted to be a bit wider than the 
actual width of the screen. In tech 
jargon, one would say that most com- 
mercial composite color monitors are 
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CBASIC- I I I 

The ULTIMATE Color Computer III Basic Compiler!!} 

If you want to write fast efficient Machine Language Programs and you don't want to spend the next few 
years trying to learn how to write them in Assembly language or with a cheap compiler, then CBASIC III is the answer!!! 



CBASIC III is the only fully integrated Basic Compiler and Program Editing 
System available for the Color Computer 3. It will allow you to take full 
advantage of all the capabilities available in your CoCo-3 including S12K RAM, 
without having to spend years trying to learn assembly language programming. 
CBASIC III allows you to create, edit and convert programs from a language you 
are already familiar with Enhanced Disk Color Basic, into fast efficient machine 
language programs easily and quickly. CBASIC III supports all the enhanced 
hardware available in the CoCo-3, including Hi-Res Graphics, & Screen displays, 
Extended Memory and Interrupts {Keyboard, Timer, Serial & Clock), It is 99% 
syntax compatible with Enhanced Disk Color Basic, so most Basic programs can 
be loaded and compiled with little or no changes required. 

The compiler is an optomizing two-pass integer compiler that converts 
programs written in Basic into 100% pure 6809 Machine Language programs 
which are written directly to disk in a LOADM compatible format. The programs 
generated by the compiler are run as complete stand alone programs. A built in 
linker/editor will automatically select one and only one copy of each run-time 
library subroutine that is required and insert them directly in the program. This 
eliminates the need for cumbersome, often wasteful "run-time" packages. 

CBASIC III is for both Beginning & Advanced Users 

CBASIC III is a Powerful tool for the Beginner or Novice programmer as well 
as the Advanced Basic or Machine Language programmer. You can write 
programs without having to worry about Stack Pointers. DP registers, memory 
allocation, and so on. because CBASIC III will handle it for you automatically. 
All you have to do is write programs using the standard Basic statements and 
syntax. For the Advanced Basic and Machine Language programmers, CBASIC 
III will let you take command and control every aspect of your program, even 
generating machine code directly in a program for specialized routines, 

CBASIC III adds many features not found in Color Basic, like Interrupt and 
Reset handling, to give you a level of control only available to very advanced 
Machine Language programmers. Plus, we made it exceptionally easy to use, not 
like some other compilers. CBASIC III is the friendliest and easiest compiler 
available for the Color Computer III. 

CBASIC III has Full Command Support & Speed 

CBASIC HI features well over ISO Basic Commands and Functions that fully 
support Disk Sequential and Direct access files. Tape. Printer and Screen I/O. It 
also supports ALL the High and Low Resolution Graphics. Sound, Play and 
String Operations available in Enhanced Color Basic, including Graphics 
H/GET, H/PUT, H/PLAY and H/DRAW, all with 99.9% syntax compatibility. 
CBASIC III also supports the built in Serial I/O port with separate programmable 
printer & serial I/O baud rates. You can send and receive data with easy to use 
PRINT, INPUT, INKEY , GETCHAR and PUTCHAR commands. 

CBASIC III is FAST. Not only will CBASIC III compiled programs execute 10 
to several 100 times faster than Basic, but the time it takes to develop a CBASIC 
III program verses writing a machine language program is much, much shorter. A 
machine language program that might take several months to write and debug 
could be created using CBASIC III in a matter of days or hours, even for a well 
experienced machine language programmer. We had a report from one CBASIC 
user that claimed "a Basic program that used to take 3 hours to run, now runs in 7 
to 8 minutes". Another user reported a program that took 1 to 1 & 1/2 hours to 
run in Basic, Now runs in 5 to 6 minutes!!!. 

CBASIC III is more than just a Compiler 

CBASIC III has its own completely integrated Basic Program Editor, that can 
be used to create and/or Edit programs for the compiler. It is a full featured 
editor with functions designed specifically for writing and editing Basic programs. 
It has built in block Move and Copy functions with automatic program 
renumbering. Complete, easy to use inserting, deleting, extending and overtyping 
of existing program lines. It is also used for Loading. Saving. Appending 
(merging), Killing disk files and displaying a disk Directory, It also has automatic 
line number generation for use when creating programs or inserting sequential 
lines between existing lines. You can set the printer baud rate and direct normal 
or compiled listings to the printer for hard copy. The built in editor makes 
program corrections and changes as easy as "falling off a log". If CBASIC III 
finds an error when compiling, it points to the place in the program line where the 
error occured. All you have to do is tell the editor what line you want to start 
editing and when it is displayed, move the cursor with the arrow keys to the place 
where the error is and correct it. Just like that, it's simple. 

Selectable 32/40/64/80 Column Displays in 192 or 225 Res. 

CBASIC III is the only Color Basic Compiler that includes it's own 32, 40, 64 
or 80 by 24 line display in 192 or 225 Resolution. All of these display formats are 
part of the standard CBASIC III compiler package. Not only can they be used for 
normal program editing and compiling, but can also be included in your compiled 
programs, with a single command, "HIRES"!! The run-time display package is 
not just a simple "WIDTH 80" display, but a full featured package, far more 
advanced than the "WIDTH 40 or 80* displays. It will let you do things you 
expect like "PRINT @" as well as X,Y positioning. You can select characters per 
line, underline, character highlight, erase to end of line or screen, home cursor, 
home & clear screen, protect screen lines, and much more. 



128K and 5.12K RAM Support 

CBASIC III makes full use of the powerful and flexible GIMI chip in the 
Color Computer 3. It will fully utilize the 128K of RAM available and install 2 
Ultra Fast Ramdisks if S12K is available, for program Creation Editing and 
Compilation. Youeancasilyaccessall512Kof memoryina Compiled program 
thru several extended memory commands that can access it in 32K or 8K block 
and single or double bytes. CBASIC III also allows your program to use the 
upper 32K of RAM space automatically for variables or even program storage at 
run-time. It will automatically switch the RAVfs in and out when needed. There 
are also two other commands that allow you to control the upper 32K of RAM 
manually, under program control. No other Color Basic compiler directly 
supports the use of Extended RAM like CBASIC III. 

All Machine Language 

CBASIC III is completely written in fast efficient Machine Language, not 
Basic, like some other Color Basic compilers. Because of this, CBASIC III can 
edit and compile very large programs, even using the 80 column displays it can 
handle almost 40K of program. Some of the other Basic compilers can only 
work with 16K or about 200 lines. Even working with large programs. CBASIC 
III compiles programs with lightning fast speed. It will compile a 24K program 
to disk in less than 2 minutes! That's without a listing being generated. We've 
heard stories about some other compilers that take almost 10 minutes to 
compile a simple 2-3K program. You might inquire about this when you look at 
some of the other compilers available. 

Compare the Difference 

CBASIC III is not just another Color Basic Compiler. It is the only complete 
Basic Compiler System for the Color Computer. Compare CBASIC Ill's 
features to what other compilers offer and you'll see the difference. When 
comparing CBASIC III to other compilers you might want to keep some of these 
questions in mind. Does it support I/O functions? You can't write much of a 
program without PRINT, INPUT and so on. What about complex string 
statements, or strings statements at all? Can you compile a complex string like: 
MIDS(RIGHTS(DAS(VAL(INS),LEN(LES)),3.3)? How large of a programcan 
you write? Can you use two character variable names for string & numeric 
variables, like Basic? Does it support all the Hi-Res graphics statements 
including H/PLAY. H/DRAW, H/GET and H/PUT, using the same syntax as 
Basic? Do you ever have to use a separate Basic program? How long would it 
take to compile a 24K program? Can you take complete Basic programs an 
compile them without extensive changes? Will they work? How do you edit a 
program when it has errors compiling? 

The Finished Product 

Since CBASIC III contains statements to support ALL of the I/O devices 
(Disk. Tape. Screen & Printer), Hi-Res Graphics, Sound, and Enhanced Screen 
displays, it is well suited for a wide range of programming applications. When 
CBASIC III compiles a program, it generates a complete. Ready to Run 
machine language program. The finished product or program does not have to 
be interfaced to a Basic program to perform some of its functions or commands. 
This may seem obvious to you, but some of the other Color Basic compilers 
don't necessarily work this way. Some of their compiler commands need a 
separate Basic program in order for them to work. In some cases, they require 
that a separate Basic program be interfaced to the compiled program to perform 
I/O functions, like INPUT, PRINT and so on. CBASIC III doesn't do this, ALL 
of it's commands are compiled into a single machine language program, that 
does not require any kind of Basic program to make it work. 
Price Verses Performance 

The price of CBASIC III is S149.00, it is the most expensive Color Basic 
Compiler on the market, and well worth the investment. We spent over 3 years 
writing and refining CBASIC III, to make it the Best, most Compatible Color 
Basic compiler available. Most of our CBASIC III users already bought one or 
more of the other compilers on the market and have since discarded them. 
Before you buy a compiler, compare the performance of CBASIC III against any 
Color Basic compiler. Dollar for Dollar CBASIC III gives you more than any- 
other Color Basic compiler available. 

Requires 128K & Disk $149.00 

"Over the years, few products have impressed me 
as much as this one." The Rainbow, December 1987 

To order CBASIC III by mail, send check or money order for the amount of 

purchase, plus S3.00 for shipping & handling to the address below. 

To Order by VISA. MASTERCARD or COD call us at (702) 452-0532 

(Monday thru Saturday. 8am to 5pm PST) 

CER-COMP LTD. 

5566 Ricochet Avenue 

Las Vegas, Nevada 89110 

(702) 452-0632 



adjusted to have "horizontal overscan." 
This "overscan," as you noticed, is not 
desirable for text display. 

The fix consists of readjusting the 
horizontal width to make it narrower 
and then, as need be, centering the 
image. On some monitors this is very 
straightforward, for both horizontal 
width and position controls are acces- 
sible from the front or back of the 
monitor. On other monitors, you may 
have to open up the set to find one or 
both of these controls. 

The horizontal width control is typ- 
ically a ferrite slug in a coil. On some 
sets there is so much horizontal over- 
scan designed in that even after you 
maximally adjust the H width control 
for the narrowest width, there is still 
overscan. At that point you must con- 
sider replacing that coil with a different 
one, or altering the value of the capac- 
itor used with that coil to generate the 
horizontal scan. TV repair technicians 
should be able to help you. 

Printer Buffer Fix 

Here s a quick fix to a printer prob- 
lem I had. f have a Panasonic printer 
with a IK buffer on board, driven by my 
CoCo's bit-hanger serial port using a 
serial-to-parallel converter. When I 
added a Panasonic brand 4K addition 
to that buffer, the printer ceased to 
work. ! returned the 4K buffer and 
ordered a 64 K buffer from Polygon 
(made by Performance Peripherals). 
This, too, failed to work. Finally, I 
realized the problem: The placement of 
the buffer between the printer and my 
serial-to-parallel converter interrupted 
the power the converter needed to get 
from the printer. I made up a little 
power supply for that converter, ran it 
off that, and am now able to use what- 
ever buffer I please. 

John C. Burke 
Fremont, CA 

CoCo 3 Battery Backup 

Can the CoCo 3 befitted with a 
battery backup such as that Harold 
Wolff described on Page 46 of the 
March 1987 issue of RAINBOW? 

Michael Lewis 
Seattle, WA 

Yes! The delightfully simple and 
effective circuit Harold Wolff describes 
will work just fine on a CoCo 3. You 
merely need to hook that source of 9 
volts DC through the diodes to the 
junction of Dl and D2 on the CoCo 3 
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motherboard. This junction is the side 
of the diode that is nearest Capacitor 
C62. Or just use an ohmmeter to deter- 
mine which side of Dl is hooked to a 
side of D2. You must, of course, ground 
the battery to the motherboard, as per 
Harold's instructions. To make abso- 
lutely sure you've got the right spot on 
the right diode, just hook a volt meter 
to that spot and see if the voltage there 
(with respect to ground on the CoCo 3 
board) reads about 10 volts when the 
CoCo is turned on. If it does, you've got 
the right spot. 

OS-9 Games and Old Controllers 

Why does Koronis Rift not work on 
my CoCo 3? I "m using a J&M controller 
with double-sided Toshiba drives and 
RS-DOS Version 1.0. The game loads 
and runs fine on a friends system that 
also has a J&M controller. When I use 
his controller on my system, the game 
also works. 

Mark D. McDowell 
Kokomo, IN 

The oldest model of J&M controllers 
often has problems running under OS- 
9 and other programs thai run the CoCo 
3 at "double speed." Note that not all 
of them have this problem, but many 
do. I recommend you call J&M about 
fixing the controller for you to make it 
compatible with the CoCo 3. 

Calling the Dog 

/ am interested in using my CoCo 2, 
along with a tape recorder and a 
photocell-based detector, to detect 
when my German shepherd jumps over 
a fence and to activate a recording of my 
voice calling her back. Have you any 
suggestions? 

Robert Schumacher 
Tucson, AZ 
I don't believe that a computer is 
appropriate technology for that project. 
It seems gross overkill for the task at 
hand. One or two 555 timer chips would 
do the job just as well — better, actually, 
for they would be both simpler and 
more reliable. As for detecting the dog 
jumping over the fence, it is hard to do 
that in broad daylight with a "photo- 
cell." Some sort of ultrasonic detector 
might make more sense, although you 
might be able to use a pulsed infrared 
detection system, such as that used by 
Radio Shack's photocell detector (Cat 
No. 49-551 or 49-307 might be exactly 
what you need, although the range is 
limited to 30 feet). Those and similar 



units often have built-in provisions for 
turning on the alarm (the tape recorder 
with the continuous loop tape in your 
case) for several seconds, then turning 
it off. That would be exactly what you 
need. You could then merely hook the 
tape control switch on your tape re- 
corder to the alarm, switch contacts on 
that photocell detector, and your pro- 
ject would be complete, I strongly feel 
that involving a full general-purpose 
microcomputer in the project would be 
a mistake. 

It might interest you to know about 
a "dog trainer" friend of mine who used 
a pressure pad sensor to detect when the 
dog jumped on the bed. The pad acti- 
vated a continuous tape loop for a few 
seconds that said (in the owner's voice), 
"1 see you, Hannah! Bad Girl] Get down 
off that bed!" This unit used two 555 
timer chips, and worked quite well. 

An Inexpensive Transistor 

A 2 N 305 5 appears to work just fine 
as a replacement transistor for the pass 
power supply regulator transistor in a 
CoCo 2. This is of interest because the 
2 N 3055 is widely available (Radio 
Shack carries it as Part No. 26-2020) 
and quite inexpensive. 

Roger Krupski 

(HA RDWA REN A CK) 

Buffalo, NY 

Thanks very much for that useful tip. 
Your observation is even more interest- 
ing to me because the CoCo 2*s service 
manual (American version) implies that 
not just any old transistor can be sub- 
stituted for that pass transistor. Yet the 
2N3055 is as generic an NPN power 
transistor as one could imagine. 



Your technical questions are wel- 
comed. Please address them to CoCo 
Consultations, the rainbow, P.O. Box 
385, Prospect, KY 40059. 

We reserve the right to publish only 
questions of general interest and to edit 
for brevity and clarity. Due to the large 
volume of mail we receive, we are unable 
to answer letters individually. 

Questions can also be sent to Marty 
through the Delphi CoCo SIG, From the 
CoCo SIG> prompt, pick Rainbow 
Magazine Services, then, at the RAIN- 
BOW> prompt, type ASK (for Ask the 
Experts) to arrive at the EXPERTS> 
prompt, where you can select the "CoCo 
Consultations" online form which has 
complete instructions. 
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CBASIC III EDITOR/COMPILER 

The ULTIMATE Color Computer HI BASIC COMPILER!!! 

Tf you want to write fast efficient machine language programs and you don'i 
want I o spend [he nevi few years trying to learn how to write them in Assembly 
language or with a cheap compiler, then CBASIC 111 is the answer!!! 

CBASIC HI is the only fully integrated Basic Compiler and Program Editing 
System available for the Color Computer 3. It will allow you to take full advantage 
of all the capabilities available in your CoGo-3 including 5I2K RAM, without 
having lo spend year* trying to learn assembly language programming, CBASIC 
III allows you to create, edit and convert programs from a language you are 
already familiar with Enhanced Disk Color Basic, into fast efficient machine 
language programs easily and quickly. CtiAMC lit supports all the enhanced 
hardware available in the CoCo-3, including Hi-Res Graphics, &. Screen displays, 
Extended Memory and Interrupts (Keyboard. Timer, Serial & Clock). We even 
added advanced commands not available in Basic io give you a level of conlrol 
only aviaEablc lo very advanced Machine Language Programmers. Plus we made it 
exceptionally easy to use, not like some other compilers. CBASIC HI is the 
friendliest and easiest compiler available For the Color Computer 111. 

CBASIC 111 Is a powerful tool for the Beginner as well as the Advanced Basic 
or Machine Language programmer You can write programs without having lo 
worry about the Slack. DP Register, memory allocations and so on, because 
CBASIC III will handle ii for you automatically. For Advanced users, CBASIC 111 
will let you control every aspect of your program, even generating machine code 
directly in a program easily. 

CBASIC III features well over 150 Compiled Basic Commands and Functions 
that fully support Disk Sequential and Direct access files. Tape, Printer and 
Screen I/O, It supports ALL the High and Low Resolution Graphics, Sound, Play 
and String Operations available in Enhanced Color Basic, including Graphics 
H/GET, ft/Put, H/Play and H/DRAW, all with 99.9SS syntax compatibility, 
CBASIC 111 also supports the built in Serial I/O port with separate programmable 
printer & serial I/O baud rates. You can send and receive data with easy to use 
PRINT, INPUT, INKEY, GETCHAR and PUTC11AR commands, 

CBASIC makes full use of the powerful and flexible GIMI chip in the Color 
Computers, It will fully utilize the 128K of RAM available and install 2 Ultra 
Fast Ramdisks if 5I2K is available, for program Creation, Editing and 
Compilation. You can easily access all 512K of memory in a Compiled program 
thru Several extended memory commands that can access it in 32K or SK blocks 
and single or double bytes.. 

CBASIC has its own completely integrated Basic Program Editor which allows 
you to load, edit or create programs Tor the compiler. h is a ri.il featured editor 
designed specifically for writing Basic programs. It has block move and copy, 
program renumbering, automatic line number generation, screen editing, printer 
control and much more. 

The documentation provided with CBASIC III is an 6 1/2 by 11 Spiral Bound 
book which contains approximatly 120 pages of real information. We went to 
great lengths to provide a manual that is not only easy io use and undersiand, but 
complete and comprehensive enough for even the most sophisticated user, 

CBASIC III is the most expensive Color Basic Compiler on the market, and 
well worth the investment. You can buy a less expensive compiler for your 
CoCo-3, and then find out how difficult it is io use, or how limited its features are. 
Then you'll, wish you had bought CBASIC III in the first place. Dollar for dollar, 
CBASIC 111 gives you more than anyoiher compiler available. If you can find a 
better CoCo-3 Basic Compiler then buy it Ml 

Requires 128K & Disk $149.00 

DATAPACKIII PLUS V1.1 

SUPER SMART TERMINAL PROGRAM 

AUTOPILOT & AUTO-LOO PROCESSORS 

X-MODEM DIRECT DISK FILE TRstNSFER 

VT-1Q0 & VT~52 TERMINAL EMULATION 

■ No lost data even at 2400 Baud on the COCO-3 Serial I/O port. 

* B Display Formats, 32/40^64/80 cotumns at 192 or 215 lies. 

* 50K Text Buffer when using the Hi- Res Text Display & Disk. 

* ASCII & BINARY disk file transfer support via XMODEM. 

* Directly record receive data to a disk file (Data Logging), 

* VT'100 terminal emulation for VAX r UNIX and other systems. 

* VT-100/52 cursor keys, position, insert/delete, PF & Alt, keys. 

■ Programmable Word Length, Parity, Stop Bits and baud rates. 

■ Complete Full and Half Duplex operation, with no garbled data. 
1 9 Variable length, Prograrnmablc_Macro Key buffers. 

■ Programmable Printer rales from 110 to 9600 baud. 

* Send Files directly from the Buffer, Macro Keys or Disk* 
" Display on Screen or Print the contents of the Buffer. 

* Freeze Display & Review information On Line with no data loss. 

■ Built in Command Menu (Help) Display, 

* Built in 2 Drive Ramdisk for 512K RAM support and much more r 
Supports: R.5. Modem-Pak Si Deluxe RS-232 Pak, even with Disk. 

Requires 128K & Disk, $59,95 

EDT/ASM 111 

12B/512K DISK EDITOR ASSEMBLER 

EDT/ASM III is a Disk based co-rcsideni Text Editor & Assembler. It is 
designed to lake advantage of the new features available in the Co-Co-Jwiih either 
128K or5l2K of memory- It has & display formats from 32/40/64/80 columns by 24 
lines in 192 or 225 Resolution, so you use the best display mode whether you are 
using an RGB or Composite monitor or even a TV for your display. Plus you can 
select any foreground or background colors or even monochrome display modes. 
It will even support 512Kby adding an automatic 2 drive Ultra Fast Ramdisk for 
lightning fast assembly of program source code larger than memory. There is also 
a free standing ML Debug Monitor, to helpyou debug your assembled programs, 
EDT/ASM III has the most powerful, easy to use Text Editor available in any 
Editor/Assembler package for the Color Computer, 

■ Supports Local and Global string search and/or replace. 
1 Full Screen line editing with immediate line update, 

* Easy lo use Single keystroke editing commands. 

* Load & Saw standard ASCII formatted file formats. 
p Block Move & Copy. Insert, Delete, Overtype. 

' Create and Edit files larger than memory. 
The Assembler portion of EDT/ASM III features include: 

* Supports Ihe full 6809 instruction set & cross assembles 6800 code. 
' Supports Conditional 1F/TH EN/ELSE assembly. 

* Supports Di*k Library file find ml?) up to 9 levels deep. 

* Supports standard Motorola assembler directives. 

* Allows multiple values for FCB & FDB directives (unlike R.5. EDT/ASM) 

* Allows assembly from the Editor Buffer, Disk or bolh. 

Requires I28K & Disk $50.95 



TEXTPRO IV 

The ADVANCED CQCO-3 Word Processing System" 

* 9 Hi-Res Displays from 58 to 212 columns by 2A lines in 225 Res, 

* On Screen Display of Bold, Italic, Underline Si Double Width print. 

* Uptofi Proportional Character Sets Supported with Justification. 

■ Up to 80 Programmable Function Keys & Loadable Function keysets, 

* Fully Buffered keyboard accepts data even duiring disk access, 

* Autocxecutc Startup files for easy printer & system configuration, 

* 8 Pre-Defined Printer function commands & 10 Programmable ones, 
1 Supports Library files for unlimited printing & configurations, 

* Disk file record access for Mail Merge & Boiler Plate printing, 

■ Completely Automatic Justification, Centering. Hush left & right, 
" Change indents, margins, line length, etc. anytime in the icxi. 

* Create and Edit files larger than memory, up lo a full disk. 

* Easily imbed any number of printer format and control codes. 

* Built in Ultra Fast 2 drive RAMDISK for512K support. 

TEXTPRO IV is the most advanced word processing system available for Ihe 
COCO-3, designed for speed. Bexability and extensive document processing. It is 
not like most of the other word processing programs available for Ihe Color 
Computer. If you are looking for a simple word processor to write letters or other 
short documents, and never expect to use multiple fonts or proportional spacing, 
then most likely you'll be better off with one Of the other simpler word processors. 
But, if you want a powerful word processor with extensive dorumenJ formatting 
features lo handle large documents, term papers, manuals, complex formatting 
problems and letter writing, then TEXTPRO IV is what your looking for. It works 
in a totally different way than mosl word processing programs. U uses simple 2 
character abbreviations of words or phrases for commands and formatting 
information that you imbed directly in your text. There are over 70 different 
formatting commands you can use without ever leaving the text your working an. 
There arc no lime conisuming. and often frustrating menu chases, you are in total 
control at all times. You can see what the formatted document will look like 
before a single word is ever printed on your printer. Including margins, headers, 
footers, page numbers, page breaks, column formatting, justification, and Bold, 
Italic. Underline, Double Width, Superscript and Subscript characters right on the 
screen. 

TIDOPRO IV can even support LASER rRi.STRRS whh [wonorlional fonts. 
take a good look at this AD.' It was done with TEXTPRO IV on an OKI DATA 
LASERLIN r E-6 laser printer!!! All the character sets used on this AD arc 
proportional spaced characters, all centering, justification, and text prinlingwas 
performed automatically by TEXTPRO IV, 
Requires 12SK & Disk ¥89.95 

HI-RES III Screen Commander 

The DISPLAY youwantcd but didn't get on your CoCo-3 

■ 54 Different Character Siics available from 14 to 212 cpl. 

* Bold, Italic. Underline, Subscript, Superscript and Plain character styles. 

* Double Width, Double Height and Quad width characters. 
" Scroll Protecl form 1 to 23 lines on the screen. 

* Mixed Test & Graphics in HSCREEN 3 mode. 

" PR] NT @ is ava i la ble i n al I eha rac t e r S ires & styles. 
" Programmable Automatic Key repeat for fast editing. 

* Full Control Code Keyboard supported. 

* Selectable Character & Background color, 

* Uses only 4K of Extended (2nd 64K) or Basic RAM, 

* Written in Ultra Fast Machine Language, 

MI-RES III will improve the standard display capabilities of the Color 
Computer 3. even the 40 and 80 column displays have several features missing. 
For example, you can't use PRINT {© or have different character sizes on Ihe same 
screen, even when mixing text and graphics u-ith the 11 PRINT command, Ili-RES 
111 can give you the kind of display you always dreamed about having on your 
CoCo-3, with a wide variety of display options lhal you can easily use with your 
Basic or ML programs. 

HI-RES III is totally compatible wilh Enhanced Color Basic and its operation 
is invisible to Basic. It simply replaces the normal screen display with an 
extremely versatile display package. With the full control code keyboard, you can 
control many of HLRES III extended functions with just a couple of simple 
keystrokes. 

Requires 12BK Tape or Disk $34.95 

512K RAMDISK & MEMORY TESTER 

RAMDISK is an ALL Machine Language program that will give you 2 ULTRA 
High Speed Ram Disks in you CoCo-3. [I does not need or require the OS-9 
operating sys I cm. It works with U.S. DOS VLO or VI. I and il is completely 
compatible with Enhanced Color Disk Basic! Plus ii allows your CoCo-3 io run al 
double speed alt the time even for floppy disk access!!! ft will no, disappear when 
yon press reset like some niher ramdisk programs. The MEMORY lester is a fast 
ML program lo tesl Ihe 5I2K ram. Il performs several hit lests as well as an 
address lest so you know ihai your 5 12K of memory is working perfectly. 
Requires 512K & Disk $19,95 

"The SOURCE III 1 ' 

DISASSEMBLER & SOURCE CODE GENERATOR 

The SOURCE III will allow you to easily Disassemble Color Computer 
machine language programs Dircclly'from Disk and generate beautiful, Assembler 
compatible Source code. 

* Automaiic label generation and allows specifying FCB, FDB and FCC areas. 
" Disassemble programs Directly from disk, unlike olherdisasscuiblers. 

* Automatically locales Begin, End and lixeculion address, 

* Output Disassembled lisiingwith labels to (he Printer, Screen or both, 

* Generates Assembler source Tiles dircelly to disk or printer, 

* Buill in Hcj/Ascii dump/display to locate FCB. FCC & FDB areas. 

* 8 Selectable Display formats 32/40/M/BO columns in 192 or 225 Res. 

* Selectable Foreground & Background colors & Primer Baud rales. 

* Built in Disk Directory an Kill file commands. 

* Menu display with single key commands Tor smooth, Easy operation. 
" Wriitcn in Ultra Fasi Machine Language. 

___ Requires 128K & Disk $49,95 

To order products by mail, send check or money order for the amount of 

purchase, plus S3.00 for shipping & handling io the address below. 

To Order by VISA. MASTERCARD or COD call us at (702) 452-0632 

(Monday [hru Saturday, 6am lo5pm PST) 

CER-COMP LTD. 

5566 Ricochet Avenue 

Las Vegas, Nevada 89110 

(702) 452-0632 
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If you have an idea for the" Wishing 
Weil, " submit it (o Fred cjo THE 
RAINBOW. Remember, keep your 
ideas specific, and don '; forget this is 
BASIC. Ail programs resulting from 
your wishes are for your use, but 
remain the property of the author. 



Every now and then I get a letter 
from someone who swears up 
and down that I have left a bug 
in one of my ''Wishing Well" programs. 
Usually, I load the program to check it 
out and find that no bugs exist. Rest 
assured that all of my programs are 
tested extensively before they are pub- 
lished in these pages. 

However, no one is perfect, and I 
must now admit that several recent 
programs do need correcting, but only 
for those of you who have a CoCo 3, 
Several months ago ! finally broke 
down and bought a CoCo 3 system (disk 
drive and all). Granted, the change was 
long overdue. After working with the 
machine for a while, I started to notice 
what more than a few writers have 
pointed out to me: Some BASIC assump- 
tions from the CoCo I and 2 do not 
automatically apply to the CoCo 3. 

Therefore, this month's column is 
dedicated to offering short corrections 
or, more accurately, CoCo 3 modifica- 
tions, to five recent "Wishing Weir" 
programs, along with another nice little 
utility that 1 just threw together. 

What Went Wrong? 

With the exceptions of a few peeks 
and pokes, I have gone under the mis- 
taken assumption that basic programs 
written for CoCos I and 2 were perfectly 
upwardly adaptable to the CoCo 3. This 
is true to a large degree -- with the 
exception of one very important area 
that missed my attention. 

The ever so popular red and blue 
artifact colors in PM0DE4 graphics are a 
bit more predictable on the CoCo 3 than 

Fred Scerho is a special needs instructor 
for the North Adams Public Schools in 
North Adams, Massachusetts. He holds 
a master's in education and has pub- 
lished some of the first software avail- 
able for the Color Computer through 
his software firm. Illustrated Memory 
Banks. 



Five programs get 
"colorized" on the CoCo 3 



Revising 

the 
Reservoir 



By Fred B. Scerbo 

Rainbow Contributing Editor 



they are on the CoCo I or 2. On CoCos 
I and 2, a color value of 2 or 3 might 
give you either red or blue, depending 
on your power-up. That is why so many 
programs have been written with the old 
"Press Reset Until Screen Is Red" 
command, which allows you to match 
the color set to what the program 
author had in mind. 

For some reason, however, the CoCo 
3 does not change its color set when you 
press the reset button. Therefore, pro- 
grams that use the value 3 in a color set 
for ted will never turn red, but will 
always remain blue. (Those of you using 
an RGB monitor have a whole different 
series of problems with artifact colors, 
but 1 am not even going to address those 
here.) This can cause problems with 
some machine language games, such as 
Tom Mix Software's Donkey King and 
The King, which were written years 
before the CoCo 3 came out. No matter 
how many times you press reset, you 
still get a blue ape! 

Some of my earlier programs allowed 
you to select the color set from the 
keyboard by pressing A or B (e.g., 
Rockfest /and //, Baseball Fever /and 
//, Football Fever, etc.). However, in 
recent programs I have sometimes 
resorted to the reset routine because it 
does save time in programming. Let's 
take each of these programs one at a 
time and check the few short lines that 



must be added to make them work 
correctly in color on the CoCo 3. 

Even if you do not yet have a CoCo 
3, you may want to make these changes 
because they will still work perfectly on 
a CoCo I or 2. That way, when you 
upgrade to a CoCo 3, these programs 
will be set to work. 

Revising BLOOD 

One of my favorite sets of Simula- 
tions has to do with the human body 
and how it works. Knowing Your Body: 
How Your Blood Works (May 1987, 
Page 38) is a talking Simulation on the 
human blood system. The graphics and 
animation are nice, but not if the blood 
is blue. The four program lines shown 
in Listing I are needed to correct the 
color set for a CoCo 3. 

These four lines can be typed in after 
you have loaded the original program 
back into memory. By retyping these 
lines, you will replace the old lines with 
the same line numbers. Also, the blood 
will be red, not blue. 

Revising HEART 

The same goes for the Simulation 
Knowing Your Body: How Your Heart 
Works (June 1987, Page 106) - the 
sides of the heart would be colored 
incorrectly. The lines shown in Listing 
2 will fix that problem. 

Load in the program HEftRT first, and 
then type the two lines over, or edit 
them to make the necessary changes. 

Revising Road Skills // 

Recently I published two driver edu- 
cation programs. RDRDSKIL, the first 
one, did not need any changes because 
it was done entirely in the text mode. 
However, the second one, Road Skills 
II (December 1987, Page 52), had 
graphics and used the reset routine to 
set the red and blue colors correctly. 
After loading in ROAD II, edit or type 
the six lines shown in Listing 3. 

Revising CoCo Keys 

CoCo Keys (July 1987, Page 112) is 
a nice keyboard instructor that helps 
students learn the keyboard. Even 
though the CoCo 3 has all its arrow keys 
on the right, 1 have not redrawn the 
keyboard, as that would require a major 
rewrite of the program. 1 have changed 
only those lines that impact the color 
set. (See Listing 4.) 
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Revising CoCo Keys 2 

CoCo Keys 2 (August 1987, Page 92) 
was the second program in the key- 
board series. Use the lines shown in 
Listing 5 to correct the color set. 

The change in Line 465 will also allow 
you lo exit the program by pressing 
SHIFT with the up arrow key, This 
feature was somehow left out of the 
program, so now seemed as good a time 
as any lo correct it. 

Save Your Fingers 

The program modifications wilt be 
included on RAINBOW ON TAPF and on 
rainbow ON disk as the following: 
BLOOD. FIX, HEART. FIX, DRIVE2.FIX, 
COCOKEYS.FIX and SPELLKEY.FIX. 

Notice that each filename has .FIX as 
an extension. (Tape versions will not 
have the extension. II" you are copying 
from tape to disk with a transfer pro- 
gram, you will need to rename the 
programs, e.g., rename "BLQDD.BR5" 
to "BLDOD.FIX". Then you must resave 
them in ASCII format after loading 
them, e.g., ^RVE" BLDOD.FIX" 
,R.) 

if you have the modifications on disk 
in ASCII, you will be ahle to simply 



merge them with the original programs. 
Use these commands: 

LOAD "BLOOD. BflS" (the original) 
MERGE "BLOOD. FIX " 

The old lines will be replaced with the 
new lines without your having to type 
them in. 



"Some BASIC assumptions 

from the CoCo 1 and 2 do 

not automatically 

apply to the CoCo 3. " 



A Nice Little Utility 

I havebeenafanof Color Scrips if for 
a long time, largely because it ts so 
simple (though somewhat limited in 
power). One real pain 1 find when using 
it is having to go through the steps of 
making a backup copy. Therefore, I 
have thrown together the short program 
in Listing 6 that will speed up the 
process a little. You will still need to 



swap disks several times, but you won't 
have to use the COPY command with all 
the different filenames and extensions. 
You need only switch the disk. 

You might ask, "Why not just use 
BACKUP0?" Well, sometimes you may 
have additional files on the disk you do 
not want copied. This speeds up the 
process. You can use this copier with 
any other disk files you want to copy - 
just change the data in the last line to 
reflect the files you want copied. 

When using your own filenames, 
make sure to have the last piece of 
information be END, as you see in Line 
100. Maybe this little program will be 
of help to you, I know it saves me some 
needless typing when making a backup 
of a disk. 

Conclusion 

1 hope you are able to use these fixes 
if you have a CoCo 3. Even if you don't, 
you may want to make these merges so 
that some software is all set for you to 
use when you finally do upgrade. Those 
of you who are a bit let down by the lack 
of a totally new program this month, 
fear not — very soon I will have a new 
game for you! □ 



SPECIAL DEAL ON 500 WARM UPTO OUR WINTER PRICES 
PROGRAMS IS BACK! ON SUBSCRIPTION SOFTWARE 



BACK BY POPULAR DEMAND! GET OUR LATEST 
50 DISKS OR TAPES FULL OF OVER 500 PROGRAMS. 

HERE IS WHAT YOU'LL RECEIVE: 

*Over 250 Utility Home Application Programs including a 
Word Processor, Database, Spreadsheet, Disk Utilities, 
Business Software, Electronics Series, Educational Pro- 
grams for Kids, plus much more! 

*Over 200 exciting games including King Pede, Kron. Slar 
Trek, Flight Simulator. Wizard. Horse Races, Football, plus 
much more. 

• Over 30 adventures including Rambo, Haunted House, 
Power Sword, Skid Row, plus 32k graphic adventures. 

Individual issues sell for s 9°° each or s 450 
for all 50, We slashed the price to 

only s 150°°! 



REG. $ 450 




$ 150 



• •THIS MONTH ONLY** 




Buy this package of 500 

programs and receive a free 

6 month subscription. 



RAINBOW 

CERTIFICATION 

srni 



THERE IS NO BETTER WAYTQENJOYTHE WINTER THAN TREAT 
ING YOUR COLOR COMPUTER TO 10 READY-TO-RUN PRO- 
GRAMS EACH MONTH. GET 12 DISKS OR TAPES A YEAR CON 
TAINING OVER 120 QUALITY PROGRAMS. A SUBSCRIPTION TO 
T& D SOFTWARE CONSISTS OF 10 READY-TO-LOAD PROGRAMS 
DELIVERED BY FIRST CLASS MAIL EVERY MONTH. 

NO, WE ARE NOT THE SAME AS THE RAINBOW ON TAPE IN 
FACT, MANY SUBSCRIBERS HAVE WRITTEN IN AND SAID THAT 
WE ARE MUCH BETTER THAN RAINBOW ON TAPE! 




PRICES 

TAPE THIS 

On DISK MONTH ONI V 
1 YEAR (12 Issues) J-OrOCf 50.00 

6 M0. (6 Issues! A&ai 35.00 

1 1SSUE .AW" 8.00 

Michigan Restdenls Add 4% 
Overseas Add $10 to Subscription Pries 
Peisonal Checks Welcome' 



* AvailableonCOC01.2.and3 

* Includes Documeniation 

* Over 4.500 Satisfied 
Customers 

+ Back Issues Available From 
July '82 (Over 670 Programs) 



TURN TO PAGE 178 & 1 79 
FOR A COMPLETE LISTING 



MasterCard 



PLEASE SPECIFY TAPE OR DISK 



T& D SUBSCRIPTION SOFTWARE, 2490 MILES STANDISH DR., HOLLAND, Ml 49424 (616) 399-9648 
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Listing 1: BLOOD. FIX 

275 PCLS2:A=0:B=5 6:CL=4:JK$=" PR 
ESS RESET AND RUN IF SCREEN IS B 
LUE . " : GOSUB14 5 : B=B+20 : JK$=" PRES 
S ENTER WHEN THE SCREEN IS RED." 
:GOSUB145 

310 R=2:FORI=4TO250STEP4:PSET(I, 
0,R) :PSET(I+2,2,R) :NEXTI : GET (0,0 
) -(256,2) ,Y,G:FORI=4T09 6STEP4:PU 



T (0,1) -(256,1+2) ,Y,PSET:NEXTI 
350 BL=3:A=(RND(70)*3)+13:B=RND( 
66) +10: CIRCLE (A, B) , 2 6,BL, . 6 : PAIN 
T(A,B) ,BL,BL: CIRCLE (A, B) ,26,R, .6 
: PAINT (A, B) , R,R: CIRCLE (A, B) ,12,1 
, . 6, .8, .4 

41,0 PMODE2,6:PMODEl,6:X=3:GOSUB4 
15:PAINT(60+WM,18) ,X,X:X=l:GOSUB 
415: PAINT (60+WM, 18} ,4,1: RETURN 



Listing 2: HEART. FIX 

3 20 DRAW"BM52,80C1E10BU8BR5 6R14" 
; PAINT (40, 6,0) , 3 , 1 : PAINT (150 , 52 ) , 
2,1: PAINT ( 150 , 90 ) ,2,1: PAINT ( 100 , 
52) ,2, 1: PAINT (8 6, 52) ,3,1: PAINT (8 
6,90) ,3,1: PAINT (62, 26) ,2,1: PAINT 



(56,2), 3,1 

330 PCLS2:A=0:B=56:CL=4: JK$=" PR 

ESS RESET AND RUN IF SCREEN IS B 

LUE . " : GOSUB150 : B=B+20 : JK$=" PRES 

S ENTER WHEN THE SCREEN IS RED." 

:GOSUB150 



Listing 3: DRIVE2. FIX 

2 65 PCLS2:A=0:B=5 6:CL=4:JK$=" PR 

ESS RESET AND RUN IF SCREEN IS B 

LUE . " : GOSUB13 5 : B=B+20 : JK$=" PRES 

S ENTER WHEN THE SCREEN IS RED." 

:GOSUB13 5 

275 PCLS0:SCREEN0,0:R=3:BL=2:FOR 

I=0TO2 5 6STEP4 : PSET (1,1,2) : PSET ( I 

+2,3,2) :NEXT:DIMA(20) :GET(0,0)-( 

256,4) ,A,G:PCLS0 

330 PCLS4 : DRAW"S16C2BM128 , 120R10 



E10U10H10L20G10D10F10R10" : PAINT ( 

128 , 20) , 2 , 2 : DRAWC4BM128 , 116R9E9 

U10H9L18G9D10F9R9 " 

375 DRAW"S25BM134,126C2M+14,-18H 

L26GM+14,+18" 

3 80 DRAW"BM13 4 , 8 6M+7 , -9HL12GM+7 , 

+9": PAINT (12 8, 18) ,2,2 

390 JK$=" YIELD" :B=42:A= 108 :CL=2: 

GOSUB13 5: JK$=" YIELD MEANS THAT 

YOU DO NOT HAVE THE RIGHT OF WAY 

.":GOSUB300 



Listing 4: COCOKEYS.FIX 

10 PMODE4,l:PCLSl:SCREENl,l:PMOD 
E3:PCLS3 

295 DRAWBM2 , 34" : F0RI=1T014 : GOSU 
B465: PAINT ( (1*18) -6,28) , 2 , 2 : NEXT 
300 DRAW" BM4, 52 ":F0RI=1T011: GOSU 
B465: PAINT ( (1*18) -2,42) , 2 , 2 : NEXT 
: DRAW"C4U14R3 2D14NL32BR4" : PAINT ( 
( 1*18 ) -2 , 42 ) , 4 , 4 : GOSUB4 65 : PAINT ( 



242,42) ,2,2: PAINT (242,42) ,4,1 
305 DRAW"BM4,70U14R28D14NL28BR4" 
:FORI=1TO10:GOSUB4 65: PAINT ( (1*18 
) +6 , 60 ) ,2,2: NEXT : DRAWU14R28D14L 
28": PAINT ( (1*18 ) +6 , 60) , 2 , 2 : PAINT 
(23 6,60) ,2, 2: PAINT (23 6, 60) ,4,1 
3 50 PAINT (23 6, 6) ,3,1 
465 DRAW"C2U14R14D14NL14BR4":RET 
URN 



Listings: SPELLKEY.FIX 
10 PMODE4,l:PCLS 
E3:PCLS3 

280 DRAW"BM10,16 

UB495:PAINT(4+(I 

T 

2 85 DRAW"BM2,34" 

B495: PAINT ((1*18 

2 90 DRAW"BM4,52" 

B495:PAINT( (1*18 

:DRAW"C4U14R32D1 

(I*18)-2,42) ,4,4 



l:SCREENl,l:PMOD 

":FORI=lT013:GOS 
*18) , 12) ,2,2:NEX 

:FORI=lT014:GOSU 
)-6,28) ,2,2:NEXT 
:FORI=lT011:GOSU 
)-2,42) ,2, 2: NEXT 
4NL3 2BR4 11 -.PAINT ( 
:GOSUB495: PAINT ( 



4,1 



2: PAINT (242, 42) 

'BM4,70U14R28D14NL28BR4" 

)10:GOSUB4 95: PAINT ( (1*18 

, 2 : NEXT : DRAWU14R2 8D14L 

'( (1*18) +6, 60) ,2, 2: PAINT 

2, 2: PAINT (2 36, 60) ,4,1 



242,42) ,2 
295 DRAW"] 
:fori=ito: 

)+6,60) ,2, 

28": PAINT 

(236,60), 

3 40 PAINT 

465 IFX$=G$(Z)THEN475ELSEIFX$="" 

THEN4 4 5 

495 DRAW"C2U14R14D14NL14BR4" :RET 

URN 



(236,6) ,3,1 



Listing 6: COPIER 

10 REM EASY COPY-BY F.B.SCERBO 

(C) 1988 
20 READ A$:IFA$="END"THEN60 
30 GOSUB70 
40 COPY A$ 
50 GOTO20 
60 CLS: PRINT" COPY COMPLETED" : END 



:NEW 

70 CLS:PRINT"INSERT SOURCE DISKE 

TTE AND PRESS • ENTER ■ " 

80 X$=INKEY$:IFX$<>CHR$(13)THEN8 



90 RETURN 

100 DATA "DOS/BAS", "DOS/BIN", "SC 

RIP/BIN" , "COPIER/BAS" , END 



/R\ 
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Tandy — the Joystick Pick 

The only joysticks that ! can find on 
the market for the CoCo are the ones 
from Radio Shack. Are there any 
other brands that will work with the 
CoCo? And where can / get colored 
ribbons for my DM P- 1 05? 

Ron Mills, 
Bonny vi tie, Alberta 

iy Atari joystick interfaces are avail- 
•*■ }K able for the CoCo, but Atari-type 
joysticks have switches instead of the 
potentiometers that are in the CoCo's 
slicks. With the Atari-type sticks, the 
computer can sense only certain direc- 
tions, making them incompatible with 
much CoCo software. The Tandy de- 
luxe joystick is a bargain. It is made by 
Kraft, one of the leaders in the field. 

The Great Lakes Ribbon Company, 
in Kettering, Ohio, (800) 621-9127, 
claims over 300 styles of ribbons in 
black, red, blue and green. 

Relational Reference 

S Where can I get information on how 
_ to write a relational database system 
'& for the CoCo? 

Bob Williams 
Baltimore, MD 

"D, RISS: A Relational Database 
/*■ Management System for Mini- 
computers by Meld man, et al, Van 
Nostrand Reinhold, 1978, contains 
basic source code for a relational 
database system. 

Random Executions 

|| Sometimes when I load in a machine 
language program, I type EXECC 
instead of EXEC. When I do this, the 



Richard Esposito is a senior project 
engineer with Northrop Corp. He holds 
bachelor's, master's and docto ra t e 
degrees from Polytechnic Institute of 
Brooklyn. He has been writing about 
m icro co mp uters since 1980. 

Richard Libra is a simulator test 
operator for Singer Link Simulation 
Systems Division. 
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machine 's memory messes up and / get 
garbage on the screen. Would you 
please explain what is happening? 

Chris Romance 
Massapequa Park, NY 

|J When you type EXECC, you are 
/C telling the computer to execute a 
machine language program that has an 
EXEC address at the address in memory 
that is stored in the BASIC variable C. If 
you have not stored a value in C, it 
defaults to zero. So, in effect, you have 
typed EXEC 0, and the computer starts 
executing at Address 0. Since there is no 
rational machine language program al 
Address 0, the computer executes those 
"random" instructions, giving you 
garbage on the screen. When this oc- 
curs, the safest thing to do is to power 
down and start over. 

Multi-Pak Upgrade 

/ purchased a CoCo 3 and a 512K 
RA M upgrade along with a Tandy 
CM-8 monitor. Now with many of 
my machine language games I get beau- 
tiful black-and-white pictures. Is there 
special hardware or software I can use 



to correct this situation? I have heard 
that the Co Co 3 is incompatible with the 
Multi-Pak (126-3124. When ! power up 
the CoCo 3 and the Multi-Pak at the 
same time via a power strip, everything 
seems to work OK, hut if I first power 
the Multi-Pak and then the computer, 
I get a screen full of garbage. 

Jean Grave He 
Gatineau, Quebec 

Vi Your Multi-Pak can be upgraded 
/C with a satellite board, which re- 
quires soldering. The board is available 
from Radio Shack National Parts 
(#AXX-7I 19). The instructions on how 
to perform this upgrade appeared in 
Marty Goodman's "A PAL for Your 
CoCo 3" (January 1987, Page 98). This 
upgrade can also be done by Radio 
Shack for an additional service charge. 
The older Multi-Paks (#3024) are up- 
graded more easily by replacing the 
PAL chip (plug-in replacement #AXX- 
7123 — no soldering necessary). 

Computer Doe 

/ just acquired an Infoton Mod. 
Vistar GT 050001 computer. I re- 
S paired it, and now it does work, but 
I'd like to know if it's compatible with 
anything. I tried contacting the manu- 
facturer, but my letter was returned as 
non-deliverable. 

Dan Griffin 
Avondale, AZ 

\\/ If it has aZ-80 or 8080 microproc- 
f^ essor, it might be CPM. If it has 
an Intel 8088 or 8086, it might be DOS. 
Otherwise, it's one of the many or- 
phaned computers that did not have the 
staying power of the Color Computer. 
Our beloved CoCo even predates the 
IBM PC and is still a viable machine 
because the 8/ 16 bit 6809E processor it 
uses was right on the leading edge of 
technology at the time of its introduc- 
tion. Tandy has rightly continued the 
line, upgrading it over the years while 
maintaining all-important backward 
compatibility with previous CoCos. 
The CoCo survived industry shakeouts 
that killed off many of its rivals such as 
Texas Instrument's 99/ 4 A, the 
Osborne-1 , Atari 800, Commodore VIC 
20, etc. 
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Reefing up BASIC 

B Can you use other languages besides 
ML to program the extra keys on the 
CoCo 3 to execute commands such 
as PR I NT a -2 , ? Tandy 's Model 100 has 
a method for programming its "F'keys. 
and it would he nice to he able to do this 
with the CoCo 3. 

Steven Bosze 
Brooklyn, NY 

13 A DOSS, sold by SpectroSys- 
/C tems, adds a number of enhance- 
ments to Disk BASIC, including special 
keys for PR I NTH -2,. 



ML CoCo-PC Transfer 

Is there any way to transfer machine 
3 language programs from a CoCo to 
an IBM PC compatible? 

Elliot Mark us 
Wyncote, PA 

\\, The code can be transferred with 
A CoCo Lltil II, sold by Spectrum 
Projects. But since the IBM PC and 
compatibles can run only machine 
language programs written for the Intel 
8086, the CoCo's Motorola 6809E code 
will be available only for examination 
on those machines (it will not run on an 
8086). 

The Dirt on Downloading 

J How can I download programs and 
— run them? I'm using a CoCo I and 
-J Colorcom/ E Version 2.3. 

Bill Pennington 
Middlesex, NJ 

D Generally speaking, most termi- 
A 7^ na! programs have a buffer cap- 
ture function to let you capture data 
received from the system you're con- 
nected to. On Delphi or other BBSs, 
you can use this feature to download 
ASCII text or program files. The proce- 
dure on Delphi (similar for other BBSs 
or services) for a simple ASCII buffer 
capture is as follows: 

1) Clear your terminal's buffer. 

2) At the ACTION> prompt, enter 
DOWN. 

3) After Delphi tells you to "Press 
Return When Ready," open your buffer 
and press ENTER. You will see the file 
on your screen. 

4) When the download is complete, 
you'll see a message like "Download of 
132 Lines Complete." With some termi- 



nal programs you will hear a beep, as 
well. Close your buffer and save the 
contents to tape or disk. If there is more 
than one file to be received, clear your 
buffer and press ENTER to start receiv- 
ing the next file. Note: If the file is a 
BASIC program, you will get a "?DS 
Error message when you load the pro- 
gram back into the CoCo; however, this 
has no ill effect on the program. After 
loading, re-save the program to elimi- 
nate this error. 

The procedure for an Xmodem 
download (not available with all termi- 
nal programs, but needed to download 
non-ASCII files or machine language 
files) is as follows: 

1) At the RCTIDN> prompt, enter 
XDQUN. Delphi will respond after a few 
seconds with OK, RECEIVE!, 

2) Switch your terminal program 
into Xmodem receive mode. The file 
will be transmitted after a pause. 

3) After the transfer is complete, save 
your buffer contents to tape or disk. 
You may need to specify how the file is 
to be saved (machine language or 
ASCII). 

CoCo 3 Shows Off 

/ would like to really show off my 
CoCo 3. Is there a way to run pro- 
grams such as Koronis Rift, Desk- 
mate and Rogue in windows? Is there 
a way to use my Hi- Res Joystick Inter- 
face with Desk mate 3? How do I fix 
programs to run with a hard disk? 

Tony Mantegna 
Brooklyn, NY 

D It is possible to create an OS-9 
^Lboot that supports both graphics 
windows and VDG screens. First, use 
ennf ig to create a customized version 
of OS-9, selecting your favorite parame- 
ters and terra_win. Then using 05- 
SGen, create an improved boot using in 
your bootlist the newly created 0S- 
98oot with Vdgint.IO from the Mod- 
ules directory. After building a system 
with this boot, you can create VDG 
windows using the normal window 
descriptors by typing xmoda 'wn 
type=l; shell i=/un& where n = 
window number. You can then press 
CLEAR to select a window to run one of 
your VDG programs. 

Note that many VDG programs re- 
quire patching because they are hard- 
coded to run with .TERM. Kevin Dar- 
ling, assistant SysOp on CIS, volun- 
teered the following patch for Desk- 
mate 3, which makes its windows 



compatible and also fixes it so that it 
uses the Hi-Res Joystick Interface: 



LOAD /D0/ CMOS 'DESK 


MODPATCH -5 


L DESK 


C 00F0 03 02 


C 00F1 10 12 


C 00F2 3F 12 


C 00F3 04 12 


C 00F4 10 12 


C 00FS 25 12 


C 00FS IS 12 


C 00F7 CF 12 


C 00FF 00 01 


C 0CRB 2S 12 


C 0CAC 08 12 


C 0CBE 2G 12 


C 0CBF 0B 12 


C 10C7 7D FG 


C 1DCB 82 3A 


C 1DC9 8G 45 


V 



To make this change permanent, use 
the Level I Save utility or the Saue 
utility that comes with Multi-Vue. 

Koronis Rift can be made VDG 
window-compatible with this patch: 

LORD /D0/CMDS-'KORONI5 

MDDPflTCH -S 

LORD KORONIS 

C 28 03 02 

C 2C 10 12 

C 2D 3F 12 

C 2E 84 12 

V 

Rogue will run in a normal window 
after running Makegw to set up the 
graphics. Note that after saving patched 
routines, you need to use attr to reset 
the permissions. 

Instead of patching programs piece- 
meal for a hard disk, I set up my Burke 
& Burke hard disk with three descrip- 
tors — ^D0, /H0 and 'D0 — all referring 
to my hard drive so that old floppy 
software (using /D0), old hard disk 
software (using /H0) and new software 
(using /DD) all work without drive 
access modifications. I set up new 
descriptors 'F0, •Fl, etc., for my flop- 
pies. 

For a quicker response, your ques- 
tions may also be submitted through 
RAINBOW'S CoCo SIG on Delphi. 
From the CoCo SIG> prompt, pick 
Rainbow Magazine Services, then, 
at the RAINBOW> prompt, type 
ASK for "Ask the Experts" to arrive 
at the EXPERTS> prompt, where 
you can select the "Doctor ASCII" 
online form which has complete 
instructions. 
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Proven Technology 
New CoCo 3 Utilities 

Great for 512K Systems! From Color Venture and OWL-WARE 

PRINTER LIGHTNING 



A great print spooler which gives you 
44K print buffer from a 128K CoCo and 
up to 438K (200 pages!) from a 512K 
CoCo. With this spooler you can run a 
program while you are printing a file. 
The spooler does not slow down the 
computer to any noticeable extent while 
you are running a second program and 
no lost characters arise. Baud rates 
selectable. Printer Lightning can reside 
in memory along with RAMDISK\ 



NEW NEW 



Using 512K CoCo 3 you have access to 
2 additional disk drives in RAM. All 
disk commands are supported, and the 
data are Reset button protected. You 
can now have up to S disk drive capa- 
cities on line at once and can assign the 
ram disks to any drive number. By 
making the ramdisk Drive 0, all pro- 
grams which require a lot of drive 
access will run much faster. You can 
have the RAMDISK in memory at the 
same time as the Printer Lightning 1 . 



BACKUP LIGHTNING 

This program is the fastest way to make 
backup copies of your files using a 512K 
CoCo. You can backup 35, 40, or 80 
track disks single or double sided. Both 
RS and OS-9 disks may be backed up. 
The original disk is saved to memory 
and a copy can be made on an 
unformatted disk every 45 seconds! The 
lightning read, write, format, and verify 
routines that were developed make this 
program much quicker that RSDOS or 
OS-9 for backups. This will become one 



of your most used programs! 

Only $1 9.95 each. 3 for $39.95. 
SPECIAL With our 512K Upgrade (Next page) only $2. each Or 3 for $5! 



Announcing: 



The fines! graphics/drawing program for the COCO 3! 



Da Vinci 3 



Iti colors on screen at one lime 

Modify each color from 64 available colors 

Use composite or RGB monitor 

Draw wilh custom painlorushes 

Full resolution ttOX 192 

Picture converter lm conversion of 

COCO 2 pictures io COCO 1 
MuUiplcieKi fonts 
Accepts input from joystick, X-pad. 

mouse, or touch -pad 
Boxes^ circles, line, paint generation 
Screen dump for Tandy mono and color ink-jet 

printers, (NX 10 and others pending) 
Sensible price 
i No additional hardware required because of 

course /fine joystick movement modes 
Zoom mode for individual pixel editing 
Great on screen menu which is removable at 

the touch of a key lo allow full screen edit 



t2SKor512KCOC0 3 



$37.95 




Super I/O Board for OS-9 

Each Board Provides 2 Serial Ports and Centronics Parallel Port 

First Board has Real Time Clock and Beeper... With Second Board up to 5 Users 

2 Serial Ports 



The serial ports are usable up to 19,200 Baud, and 
(he parallel port is a true Centronics standard. 
Plug into your multi-pale. On CoCo 3, multi-oak 
must be upgraded. You will have a multiuser 
system wilh additional computers or terminals 
plugged into the serial ports. An OWL hard drive 
and 512K upgrade are stronelv recommended for 
multi-user systems. fk\ ^ ^h ^% 

Intro Price... 5>1 On- 
board 2... $145. 



(up lo 10.200 BAUD) 



Plugs 
Into 

MULTI PACK 





P.O. Box 116-A 
Mertztown, PA 19539 

'Centronics ORDER LINES (only) 

(800) 245-6228 
(215) 682-6855 (PA) 
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Last month we talked about high- 
capacity EPROMs from 8K (the 
2764) all the way to 64K (the 
newest member of the family, the 
27512). We also talked about hooking 
up these chips to your CoCo. 

The 2764 and the 27128 (1 6K) can be 
hooked up directly to the CoCo. The 
2764 is easy to hook up, as it has only 
8K of memory. In any ROM chip, only 
the first 8K of memory is valid — the 
rest of it is memory mirrored. 

As we gel into more memory per chip, 
we are faced with more options. For 
example, do we use the 27128 as one 
complete 16K package, or do we split 
it up into two packages of 8 K and select 
between the two? Do we make it selec- 
table in software or in hardware, or 
both? Look at the Radio Shack Multi- 
Pak, which does all of this. 

All these possibilities can be over- 
whelming to a novice hardware hacker. 
For that matter, the ramifications of 
EPROMs aren't all that clear to the 
pros, either. What I am attempting to 
do is take a close look at large capacity 
EPROMs and describe how to hook 
them up to the CoCo and have a big 
enough EPROM package to make a 
ROM disk. 

The CTS pin can access up to 16K on 
CoCos I and 2, and can access up to 
32K on the CoCo 3. But because only 
the CoCo 3 can access 32K, I am lim- 
iting my possibilities to 16K — other- 
wise, we'd have to throw in another 
variable, which would only add to the 
confusion. Besides, the 32K mode of the 
CoCo 3 is rarely used, if at all. 

Let's start with something we are 
already a little familiar with, DOS. 
Now, the DOS ROM that Tandy offers 
is called Disk Extended BASIC. While 
we are on the subject of DOS, let me 
clear up a little misconception. There 
are only two versions of this DOS — the 
older 1.0 and the newer 1.1. When you 
power up a CoCo 3 with a Tandy DOS 
in the controller, you see one of two 
messages: If you have Tandy DOS 1 .0, 
you gel the message "2.0"; if you have 
Tandy DOS 1 . 1 , you get "2. 1 ." You see, 
the k 2' part of the version belongs to the 
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A DOS expansion project 
for experienced hackers 



Build a 



Half-Megabyte 
ROM Disk 



By Tony DiStefano 

Rainbow Contributing Editor 



version of Hi-Res BASIC you have, not 
to DOS — the ".0" or "J" part of the 
version belongs to DOS, I just thought 
I would clear this up because I hear loo 
many times that someone has DOS 
Version 2.1. 

Well, back to work. Whatever the 
version, Tandy DOS is contained in an 
8K ROM. ROMs are masked at the 
factory and cannot be changed, but 
EPROMs arc user-programmable. You 
can change them any time you want, as 
they are erasable. I think 1 have said 
enough about the structure of 
EPROMs. Read last month's article for 
more details. 

There are a lot of people who are 
familiar with DOS and would like to 
expand it add in their favorite utility, 
for example. To expand DOS, you need 
more memory space, so the only thing 
to do is change to a 16K EPROM. That 
gives you about 8K of extra space to 
work with. To have more than that 
requires more space. 

This is where you have to start with 
bank switching. Bank switching means 
that you have more than one memory 
chip mapped in the same area, but only 
one of them is active at a time. Last 
month we looked at a technique that 
required a hardware switch to physi- 
cally change the access to the EPROMs. 
That is a simple technique, but there are 
some limitations, the biggest one being 
that the software will most likely get lost 



and cause the computer to crash when 
you switch it. It is OK when you want 
to completely change and power down 
anyway, but not too practical when you 
have a lot of software already loaded 
and need just a little utility. 

Preventing a crash that may occur 
when you turn the switch is not too 
difficult if you know how. Have the 
CPU turn the switch for you — this is 
called a "softswiteh," and requires a 
latch, some decoding and a circuit. With 
this latch we can switch between quite 
a few things. What 1 want to show you 
is a way to access eight EPROMs of 
varying sizes. Figure I shows the circuit 
required to wire up eight 27512 
EPROMs. That gives you a total of half 
a megabyte of EPROMs, or, in other 
words, one big ROM disk. 

Before you run out and buy all the 
parts and try building the ROM disk, 
keep in mind that this is one heck of a 
big project. A project that should not be 
tried by everyone. First of all, you must 
have a lot of patience — to solder eight 
28-pin EPROM sockets takes many 
hours. Second, you must have lots of 
money to buy eight 27512 EPROMs. In 
addition to a disk drive, you must also 
have a Multi-Pak. And lastly, you must 
have a lot of knowledge about machine 
language drivers for disk drives. So, you 
see, this is a big one. If you have all the 
prerequisites, let's start. 

The first thing to do is get acquainted 
with the circuit. Ul simply gates the 
SCS with the Read/ Write line. All this 
does is prevent you from switching the 
data in the latch just by reading that 
memory area. So, this becomes a "Write 
Only" byte. Since it uses the SCS pin, 
this byte is mapped at SFF40. In fact, 
it is mirrored from SFF40 to SFF47. U2 
is a six-bit latch. The diagram says that 
the inputs are from Dl to D6, but they 
are in fact connected from DO to D5, 
respectively. The latch is connected to 
the output of U I and is cleared to all 0s 
when the reset button is pressed. 

The output of 112 is six bits that are 
controlled by writing to it. Let's look at 
the last three bits first, Q4, 5 and 6. They 
go to the inputs of a 3-to-8 decoder. 
These three pins select one of eight 
outputs. The other inputs to U3 are the 
CTS pin and the E clock. The E clock 
is needed to make sure the data is in sync 
with the CPU. 
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O* Get Smart, Have Fun and Save $50! ^ 

Order the new Educational Combo package by April 31, 1988 at the introductory price of $48.50. 
The Combo includes these educational (and entertaining) games: Silly Syntax (with 2 stories) 
Galactic Hangman (700 word vocabulary), The Presidents of the USA (includes well over 35 
presidents), The Great USA (even little-known states are covered) and Trig Attack (Zap those 
Trigs). For children ages 5-10 through adult. Disk only; $48.50; S&I-I $1.50. 



CALLI GRAPH ER 

CoCo Calligrapher - (Hybrid BASIC/ML) 
Turn your CoCo and dot^matrix printer 
into a calligrapher's quiil. Make beautiful 
invitations, llyers, certificates, labels and 
more. Includes 3 fonts: Gay Nineties, Old 
English and Cartoon. The letters are ¥> 
inch high and variably spaced. Works 
with many printers including Epson, 
Gemini, Radio Shack, Okidata 92A, Ba- 
nana and Prowriter. Additional fonts are 
available (see below). Tape/Disk; $24.05. 

OS0 Calllgrapher - (q Although a 
different program from the CoCo Calli- 
graphcr, the OSQ Calllgrapher prints all 
the same fonts. It reads a standard text 
file which contains text and formatting 
directives. Yon may specify the font to 
use, change fonts at any time, centering, 
left, right or full justification, line fill, 
margin, line width, page size, page break 
and indentation. Similar to troff on 
UNIXtm systems. Includes Gay Nineties, 
Old English and Cartoon Touts, Addition- 
al fonts are available (see below). Disk 
only; OS9 Level I or II; $24.05. 

Calllgrapher Fonts - Requires Calligra- 
pher above. Each set on tape or disk; 
specify RSDOS or OS9 version; $14.05 
each. Set #1 - (9 fonts) Reduced, re- 
versed and reduced-reversed versions of 
Gay Nineties, Old English and Cartoon; 
Set #2 - (8 fonts) Old Style and Broad- 
way; Set #3 - (8 fonts) Antique and 
Business; Set #4 - (8 fonts) Wild West 
and Checkers; Set. #5 - (10 fonts) Stars, 
Hebrew and Victorian; Set #0 - (8 fonts) 
Block and Computer; 

Economy Font Packages on disk; specify 
RSDOS or OS9; 20.05: Font Package #1 
- Above font sets 1, 2 and 3 (25 fonts) 
on one disk. Font Package #2 - Above 
font sets 4, 5 and 6 ('26 fonts) on one 
disk. Both Packages #1 and #2 (51 
fonts) on one disk; 40.05. 



Calllgrapher Combo Package - Every- 
thing!; specify RSDOS or OS9; Includes 
the Calligrapher and both Font Pack- 
ages on two disks; SQD.Q5, 



UTILITIES 

Flratector- (ioo%ml) Utility to allow your 
own disk-based BASIC or ML programs 
to display a graphics title screen and then 
self-start after loading. Adds copy protec- 
tion to your programs but still allows 
users to create nen- executable backups! In- 
cludes Semigraf. Disk only; CoCo 1, 2, 3 
(except Semigraf); $30.05. 

Super Screen Machine - (100% ML) Put 
your CoCo into high resolution mode for 
your own BASIC or ML programs. 
Smooth scroll, key click, lower case with 
colored characters. Tape/Disk; 32K CB; 
CoCo 1, 2, 3 (except G4K mode); $19.05. 



Color Disk Manager- (ioc%ML) Disk util- 
ity with these features: Disk repair, selec- 
tive track initialization, verify sectors, 
backups, tape to disk transfer, ROM Pak 
execution from disk, much more! 
Tape /Disk; CoCo 1, 2, 3 (except for Q4K 
mode); $24.05. 

Color Tape Manager - (ioo% ML) Tape 
utility with these features: display start, 
end and exec address of ML programs, 
convert ML programs into DATA state- 
ments, append ML to BASIC, much 
more) Tape /Disk; 16K ECB; CoCo 1, 2, 
3 (except for 64K mode); $10.05. 

OS0 Patcher - {C\ Display and modify the 
contents of a file or memory module, 
Hexideeimal, decimal and ASCII modes. 
Search feature. Calculates module CRCs; 
Generates patch command files. Disk 
only; OS9 Level I or If; $10.05. 

INFORMATION MGT. 

TIMS (Tlio Information Management 
System) - [Hybrid basic/ml) Tape or disk, 
fast and simple general data base pro- 
gram. Create files of records that can be 
quickly sorted, searched, deleted and up- 
dated. Powerful printer formatting. Up 
to 8 user fields, sort on up to 3 fields. 
Tape/Disk; $10.05 (see combo pkg 
below). 

TIMS Mall - (Hybrid BASIC/ML) Tape or 
Disk based mailing list management pro- 
gram. Piles are compatible with TIMS. 
Fast and simple to use. Supports labels 
1, 2 or 3 across, 2% to 4 inches wide. 
Tape/Disk; $10.05 (see combo pkg 
below), 

TIMS Utility - (Hybrid basic/ml) Utility 
companion for TIMS and TIMS Mail to 
allow multi-term search [AND and O/? 
logic), global change and delete, split 
large fifes and more! Tape/Disk; $14.05 
(see combo pkg below). 



TIMS Coniljo Package - All three of 
the above programs: TIMS, TIMS Mail 
and TIMS Utility on one disk - $34.05. 



SPORTS STATISTICS 

Statistics programs for the coach, team 
manager or avid fan who wants to keep 
accurate team and opponent records. 
Printer output supported. The following 
are available: Baseball, Basketball, Foot- 
ball and Soccer. Disk only; $10.05 each. 

EDUCATIONAL 

Trig Attack - [ioo?&ML) Ages 9 and up. In 
this educational arcade game, enemy trigs 
travel along math curves. Players learn 
important mathematical concepts as they 
play. Sound effects, colorful graphics. 
Excellent manual includes an introduc- 
tion to trigonometry. Tape 1BK CB/Disk 
32K ECB; CoCo 1, 2, 3; $10.05. 



Silly Syntax - (Hybrid B'\sic/ml) Ahcs 5 
and up. Story creation game; output to 
screen or printer; includes 2 stories or 
create your own. Tape /Disk; $19.05 or 
disk with 62 stories Tor $20.05. Sets of 10 
stories on tape/disk for $4.05; Fairy 
Tales, Current Events, X-Rated, Sing- 
Along, Adventure, Potpourri. 

Bible Stories Adventure - (Hybrid 
Basic/ml) Ages 4 & up. A graphics ad- 
venture game for young children & their 
families. Old testament. Tape/Disk; 
$10.05. 

The Presidents of the USA - (1009SML) 
Ages 10 and up. Two trivia games, user 
modifiable, printer output supported. 
Tape/Disk; 16K ECB; $10.05. 

The Great USA - Ages and up. Trivia 
game of the 50 states. Capitals, nick- 
names, abbreviations, Mowers, trees and 
birds. Tape /Disk; 16K ECB; $10.05. 

Galacdc Hangman - Ages 7 and up. Ex- 
citing new twist to the popular word 
game. Outstanding graphics; 700 word 
vocabulary. Tape /Disk; 16K ECB; $19.05. 

PreReader - (Hybrid basic/ml) Ages 3-5 
(level 1); Ages 5-7 (level 2); Great graph- 
ics ancf music. Level 1: match colors, 
shapes, letters and numbers; Level 2: 
match letters and consonant blends with 
their sounds. Tape/Disk; Joystick: 
$19.05. 

Statgraf - High school and college level; 
Linear regression analysis program com- 
bined with a plotting and line graphing 
system. Up to 2S0 x/y pairs; data 
transformation; residuals; regression line; 
print graph with screen print program 
(not supplied); Tape/Disk: $10.05. 

SPECIAL INTEREST 

Rental Pro|>erty Income nnd ExjJense 
Management Package - Maintain your 
rental property income and expense 
records. Print output supported. 28 ex- 
pense categories. This program may be tax 
deductible. Disk only; $20.05. 

Radio Systems Design Calculations - 
Performs 14 different calculations com- 
monly used in design or evaluation of 
land mobile radio systems, satellite TV, 
etc. Tape /Disk; $10.05. 

CoCo Kill Iter - Easy to use program to 
display or print instructions to knit a 
sweater: Cardigan or Pullover; Round or 
V-neck; Raglan or Set-in Sleeve; 3 
weights or yarn; 8 sizes from baby to 
man. Tape/Disk; $10.05. 

Flying Tigers - (iod'JEml) Fast, Defcndtrs 
style arcade game. 5 levels of difficulty; 
Outstanding graphics and sound effects. 

Tape /Disk; Joystick; $10.05. 
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SUGAR SOFTWARE 

I\0. Box 74-46 

Hollywood, Florida 3308 I 

(305) 981-1241 



Alt prognitng run on the CqOq 1, 2 cind S t S2K 
Extended Baric, anient otherwise noted. Add 
$L50 per tape or disk for shipping ant! han- 
dling. Florida residents add Q% sales tax. COD 
orders add $5, Dealer inquiries invited. Orders 
generally shipped in 24-48 hours. No refunds 
or exchanges without prior au thorizatian. 
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Figure 1 



The CTS pin is the main select for the 
external ROM area. The output YQ is 
connected to the Chip Enable and 
Output Enable of U4. Only one 
EPROM is shown. The other seven 
EPROMs are all wired in parallel ex- 
cept for these two pins. Yl to Y7 of U3 
connect to pins 20 and 22 of chips U5 
to Ull, respectively. Wow! What a 
mouthful! Depending on what the 
binary number is at the A, B and C 
inputs of U3, one of the eight EPROMs 
will be selected when the CTS pin goes 
low. 

Now let's look at the next two bits, 
Q2 and Q3 of U2. They connect to AI4 
and A15ofallthe EPROMs. If you put 
on your binary thinking hat, you'll 
realize AO to A13 comprise 14 address 
lines. Two to the power of 14 gives us 
the amount of data 14 address lines can 
access — 16K, These two bits that are 
connected to the EPROMs select four 
banks of 16K. A 27512 has 64K of 
memory. These two bits connected to 
AI4 and A15 will divide the 64K 
EPROM into four banks of I6K. OK, 
here comes the tricky part. A13 of the 
EPROMs can be connected to one of 
two sources via SW1. The way it is 
connected in Figure 1 is the way it is 
required to switch 16K banks. Each of 
the eight EPROMs has four 16K banks; 
that gives you 32 I6K banks of memory. 

There is another way to wire things 
up. When the switch is turned the other 



way, it no longer gives you I6K banks. 
With one less address line to work with, 
the CPU will see two 8K banks mirrored 
with the same data. By putting this 
address line to another bit (Ql of U2), 
we now have three bits of bank switch- 
ing. In binary, three bits give you eight 
banks to choose from. You now have 
eight EPROMs with eight banks each, 
which gives you 64 banks of 8K of 
memory. That's a total of 5J2K of 
memory. 

Well, that about does it for the theory 
part. The construction of the ROM 
disk, like lsaid before, is a big task. You 
will need eight 28-pin sockets for the 
EPROMs and three 16-pin sockets for 
the other support chips. The best way 
to go with this one is to get the proto- 
board from CRC Inc. That is the one 
I used, and it has plenty of room for all 
the chips. Also needed for this project 
are eleven .1 uf capacitors, one for each 
chip; connect them between +5V and 
ground as close to each chip as possible. 
Not shown on the diagram are the +5V 
and ground pins for these chips. It is 
simple. For the three TTL chips, the 
+5V pin is 16 and the ground pin is 8. 
For the EPROMs, the+5V pin is 28 and 
the ground pin is 14. That is all you need 
to know to construct this board. 

Now that I've shown you the hard- 
ware part of this project, it's time for the 
software. You all know how much I hate 
that. But, without software, hardware 



would not be much good. Though 1 will 
not be writing any software, you will 
need to know something about the 
hardware to write it yourself. The 
control byte, as 1 call it, for which bank 
is active in this circuit is at SFF40. 

There are two different ways the 
control byte works, depending on which 
way the switch SW1 is set. The two 
options are this — 32 I6K banks and 64 
8K banks. For the option of 64 8K 
banks, DO, Dl and D2 of the control 
byte select eight banks per EPROM. 
D3, D4 and D5 select one of eight 
EPROMs. So, U4 has bank numbers 
to 7, U5 has 8 to 15, U6 has 16 to 23, 
and so on. Each bank will appear from 
SC0O0 to SDFFF. The I6K banks are a 
little different. DO is not used; Dl and 
D2 select four 16K banks; and D3, D4 
and D5 again select one of eight 
EPROMs. This time U4 has bank 
numbers to 3, U5 has 4 to 7, U6 has 
8 to II, and so on. 

The choice to use 8K or 16K. banks 
is yours, of course, but think of this; If 
you use 16K banks, you lose 256 bytes 
per bank in CoCos 1 and 2 and 5 1 2 bytes 
per bank in CoCo 3 because of the 
addressing of the CoCo. Those bytes are 
reserved for I/O. 

I hope that I have given you enough 
information to think about and act on. 
It is a big project, but for the right 
people, it can be quite rewarding. 
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Briefly, last month, we covered use 
of the Mail and Forum areas in 
the CoCo SIG for the benefit of 
newcomers. We find that, with the 
continual influx of new users, we must 
periodically revisit topics of greater 
interest. 

Most people join Delphi mainly for 
the purpose of downloading the many 
fine programs found in the CoCo SIG. 
It is only after they have used the system 
that they begin to realize its benefits 
extend far beyond the databases. They 
also learn that downloading for the first 
time can be very frustrating. Many also 
find that the communications software 
they have purchased won't allow them 
to download from online services such 
as Delphi, 

The thrust of this month's column is 
to help those who have limited expe- 
rience in downloading from informa- 
tion services. First, we will discuss the 
software aspects and system require- 
ments. We will then discuss how the 
database area is organized on Delphi. 
Next month we will continue our dis- 
cussion with the procedures involved in 
downloading files from the CoCo SIG. 

What Software Should I Use? 

Before you can begin telecomputing 
in the first place, you must have a 
computer, a modem and the software 
that allows your computer to act as a 
terminal. This "terminal software" 
comes in many shapes and sizes with 
various flavors to suit just about any 
taste. 

While Color Compac and the built- 
in software in the Deluxe RS-232 Pak 
(both from Radio Shack) allow you to 
communicate with online services, 
neither program is designed to allow 
you to download programs from such 
services. 

For the purposes of downloading, 
you will want to purchase a terminal 
program that supports the Xmodem or 
Kermit protocols. These protocols use 
error-checking techniques to ensure 
error-free downloads. This, of course, 
will save you time and money. 

Cray Augsburg is rainbow's technical 
editor and has an associate 's degree in 
electrical engineering. He and his wife, 
Ruth Ann, have two children and live 
in Louisville, Kentucky, His username 
on Delphi is CRA Y. 
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By Cray Augsburg 
Rainbow Technical Editor 



A host of commercial terminal pro- 
grams that support Xmodem are avail- 
able. Autoterm from PXE Computing, 
Color Connection from Computer ware 
and the Datapack series from Cer- 
Comp come to mind. Another feature- 
packed terminal program, intended for 
the CoCo 3, is Color Talk 3 from 
Computize. All of these companies are 
RAINBOW advertisers. The programs 
each offer various features that can be 
very useful to the telecommunicator. 

Many people choose to avoid the 
commercial route until they have gained 
experience in the telecommunications 
field. In this way, they can be sure of 
which features they need before invest- 
ing a great deal of money in such 
software. For these people, the "share- 



Database Report 

By Don Hutchison 

Rainbow CoCo SIG Database Manager 

nally written by Kevin Darling and was 



Interest in graphics remains exception- 
ally high on the CoCo SIG. The graphics 
topics arc already the largest in the data- 
base, and user interest never seems to 
wane. For the second month in a row, the 
CoCo 3 Graphics topic of the database was 
the fastest growing area by far. 

OS-9 Online 

In the Utilities topic area, Ronald Cli- 
bortie (COCORON) uploaded a multiple- 
directory file utility that can handle direc- 
tories of more than 250 files and allows 
several of the most often used commands. 
Greg Law (gregl) uploaded I Patch, a r, 
which contains two programs written by 
Bob Santy. IPa tch can perform a complex 
patch to a module that includes additions, 
deletions and simple changes to byte 
sequences in a file. It is similar to Hod- 
Patch, but can be used to make a file larger 
or smaller. Its companion program, Mal<- 
Pa tch, can be used to compare the original 
file with a new file and create an IPa tch 
script. 

Colin McKay (colinmckay) uploaded 
ModemTime, a program to read in the 
lime from a Capetronic QT1200 modem 
and convert it to 24-hour time. George 
Janssen (GBJANSSEN) posted ScrCpy, a 
program that can be used to copy a Type 
2 (24-by-80) window to another window, 
file or the printer. Richard Esposito (t)OC- 
TORASCIl) posted Saue9, BBS, adisk BASIC 
program that will create the SRVE program 
Tandy/ Micro Ware did not include with 
Level II. (The SAVE command was origi- 



uploaded with his consent.) 

Kevin Darling (KDARL1NG) uploaded an 
RR'ed file of a Shell* module and docu- 
mentation, S7ie//+will replace your current 
shell on L-II CoCo 3. It features bug fixes, 
a programmable prompt, shell scripts in 
your execution directory, allows command 
line inclusion of parameters for packed 
BAS1C09 programs, and a few other neat 
things. Michael Washburn (compzai 1 ) 
posted Scan, a utility for searching disk 
files for text, codes, etc. Input can be a 
mixture of Hex, decimal or text strings. 
Robert Scott (ROBERTSCOTT) uploaded 
clockon, an executable command for 
setting the system clock from the Disto 
RTime hardware clock adapter. George 
Janssen posted Version 2.02 of his popular 
Pak archiving utility. 

In the Patches topic area, Dave Phi- 
lipsen (DPHILIPSEN) uploaded a file called 
Clnckpatch.ar, which contains a patch 
file to be used with the IPa tch utility. It 
creates a new clock module that will keep 
system lime under OS-9 Level II using the 
Speech Systems Real Time Clock car- 
tridge. Kevin Darling uploaded a patch file 
from Kent Meyers to fix the two known 
major bugs in BShell from the Multi-Vue 
package. 

In the Telecommunications topic area, 
Bill Brady (OS9UGED) posted the documen- 
tation file for BigT and for Version 5 of 
Wizacia. 

In the Graphics & Music topic area, 
Christopher Burke (COCOXT) uploaded an 
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ware" market is the way to go. While 
there are many entries in this arena, 
three currently stand out in my mind: 
MikeyTerm by Mike Ward, Greg-E- 
Term by Greg Miller and Rickey term 
by Rick Adams. These three programs 
are available ti oni the authoi s simply by 
sending $10 and a blank disk to the 
appropriate address: 

Mike Ward 

1807 Cortez 

Coral Gabies, FL 33134 



Greg Miller 

9575 Roston Road 

Grandledge, MI 48837 



Rick Adams 
Color Central Software 
712 Brett Avenue 
Rohnert Park, CA 94928 



&M 



Also, MikeyTerm supports tape- 
based systems — simply include a tape 
with your $10 instead of a disk. 

OS-9 users will be interested in 



XCOM9, a public domain terminal 
program being distributed by the OS-9 
Users Group. Also, The Wiz is gaining 
a lot of attention in the Level II market. 
This program, from Frank Hogg Lab- 
oratory, is very easy to use and takes 
advantage ol the added power offered 
bv Level II. 



The Co Co SIG Databases 

To enter the database area of the 
CoCo SIG, first get to the CoCo 5ig> 
prompt. Then enter DAT. The next 
prompt to appear on your screen will be 
TOPIO?. You see, the overall database 
is divided into several smaller data- 
bases. This organizational approach 
helps make finding a specific file that 
much easier. It can also help to reduce 
your online time. Just enter the first 
three characters of one of the following 
user-accessible topics: 

General Information 

CoCo 3 Graphics 

Source for 6809 Assemblers 



Utilities & Applications 

Hardware Hacking 

Games 

Classic Graphics 

Music & Sound 

Info on Rainbow 

Archives 

HELP 

Product Reviews & Announcement 

Rainbow On Tape 

Data Communications 

You may also get a list while online 
by entering a question mark (?) at the 
TOPIO prompt. 

When you have entered the topic of 
your choice, Delphi will whisk you into 
that particular database. You will see 
DORSES :xxx> on your screen (the xxx 
represents the first three characters of 
the particular topic area of the database 
you have chosen). At this point, you can 
enter DIP. or simply press ENTER to get 
a directory of the chosen database. Each 
directory entry contains up to 32 char- 
acters. Keep in mind you are not neces- 
sarily looking at actual filenames. You 



article that provides instructions for instal- 
ling Multi'Vue on a hard disk and also 
included a brief review of Muiti-Vue. 
George Janssen uploaded an icon editor 
for creating, modifying or viewing a 24-by- 
24 pixel, four-color bit map icon of the 
type used by GShel 1 when running Multi- 
Vue. 

CoCo SIG 

In the General topic of the database, 
Kevin Nickols (nickols) posted the Tandy 
Newsletter for January. Marty Goodman 
(marTYGOOdman) posted a very interest- 
ing article about the bar code system used 
by the U.S. Postal Service. With informa- 
tion from this article, readers can decipher 
the codes and even generate their own 
codes using 'a dot matrix printer. Rick 
Adams (lUCKADAMS) posted a collection 
of humorous quips denoting what Rick 
terms "diminished mental capacity." For 
example, one such quip was, "His drive- 
way doesn't run all the way to the street." 
All jokesters will have to have this file. 

In the CoCo 3 Graphics topic area, Steve 
Ricketts (STEVEPDX) uploaded a CM3 
viewer, some CoCo Max II I pictures and 
several digitized images. Mike Andrews 
(MANDREWS) posted a printer dump for 
the DMP-105 that will print DS-69 digit- 
ized images. Richard Trasborg (TRAS) 
uploaded 13 complete sets of adult pictures 
by Mike Trammel I. Mike's drawings are 
always popular. Richard also sent us 
several digitized shots from the Star Wars 
movies, as well as some of his own adult 
drawings. James MacKenzie (zimbo) 
posted a Color Max 3 font display utility. 
Orman Beckles (orman) uploaded a video 



display utility. John Nichols (JKNiCHOT.S) 
uploaded a double screen viewer utility for 
CoCo Max ///pictures. Gene Clifto (CEC) 
provided us with his MacPaint dump for 
the CGP-220. Cray Augsburg (CRAY) 
posted a digitized picture of user Shannon 
Yoffe (SHANNONY), thereby fulfilling a 
deep-seated fantasy. Glenn Accardo 
(68R.1SAM) uploaded some fine 16-level 
digitized Star Wars pictures. 

Gregory Clark (GNOME) uploaded his 
Dump 16 utility program, which will print 
an H5CREEN2 image to a DM P- ! 1 printer. 
Then Jason Forbes (coco.ikid) uploaded 
an Epson version of Clark's Dump 16 
program and a program to display Hilbert 
curves, Colin McKay provided us with a 
second modified version of Dump 16. 
Roger Bouchard (HARBlEi) uploaded a text 
file that describes the file format used by 
CoCo Max 11! pictures, David Mills 
(DAVIDMILLS) provided a drawing of Miss 
CoCo done with Color Max 3. Bob Whar- 
ton (BOBWHARTON) uploaded some CM3 
calendar head pictures. 

In the Utilities & Applications topic 
area, David Mills posted an outstanding 
basic program called Diplomat that gives 
information about other countries, their 
monetary systems, their capitals, etc. Ken 
Wuelzer (WUELZERKEN) posted Version 
2.6 of his very popular shareware disk 
utility, KDSK. Hadiey Hazcn (HAZE) up- 
loaded a disk label maker, and then up- 
dated it a few days later with Version 2. 
Brian Wright (poltergeist) uploaded an 
"AutoCopy" utility. 

In the Hardware Hacking topic area, 
Roger Bouchard uploaded text files de- 
scribing gray scale composite video and 



another providing valuable information 
about dynamic RAMs. 

In the Games topic area, Mike Ward 
(MIKEWARD) uploaded "immortality" 
pokes for the popular game Thexder, as 
well as a text file describing how to transfer 
your Thexder ROM pack to disk. 

In the Classic Graphics topic area, 
George Hoffman (HQFFBERGER) uploaded 
a basic program that creates the album 
cover from Pink Floyd's The Walt. Jason 
Forbes uploaded his program to display 
Hilbert curves, and Brian Wright posted 
some digitized ladies. 

In the Music & Sound topic area, 
George Hoffman uploaded his rendition of 
"Pop Goes the World," 

In the Product Reviews & Announce- 
ments topic area, Jim Goetlig (.icimg) 
uploaded his impressions of Word Power 
3. Laurence Tepolt (TEPCO) provided 
product announcements of his assembly 
language programming books for the 
CoCo I and 2 and the CoCo 3. 

In the Data Communications topic area, 
Marty Goodman uploaded the revised 
rttv programs as written by N6EQV. These 
programs enable [he CoCo to send and 
receive Baudot codes, and are always very 
popular with amateur radio operators. 
Dave Stinson (UG) uploaded a set of 
message generator programs for use with 
the rtty package. Joe Carney (joecar- 
NEY) uploaded a text file describing his 
testing of uploading and downloading 
times using both the Ymodem and the 
Xmodem protocols with Delphi. Mike 
Andrews uploaded the specifications for 
the Ymodem protocol. 

See you online on Delphi! 
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are really looking at the descriptive 
name of a group of files. Each directory 
entry indicates one group that may 
contain one or more files. 

When you have entered the topic of 
your choice, Delphi will whisk you into 
that particular database. You will see 
DBA5ES:jcxx> on your screen (the xxx 
represents the first three characters of 
the particular topic area of the database 
you have chosen). At this point, you can 
enter DIR or simply press ENTER to get 
a directory of the chosen database. Each 
directory entry contains up to 32 char- 
acters. Keep in mind you are not neces- 
sarily looking at actual filenames. You 
are really looking at the descriptive 
name of a group of files. Each directory 
entry indicates one group that may 
contain one or more files. 

After you have found an entry that 
interests you, find your way back to the 
DBfl5ELS:jrjur> prompt. If your cursor is 
not there, usually a simple CONTROL-Z 
will take you there. If, instead, you wind 
up at the flCTI0N> prompt, press 
CONTROL-Z a second time. 

Now that you are back at the prompt, 
you can get a description of the entry 
by entering RERD yyyy, where yyyy is the 
name of the entry from the directory. 



You will be presented with a brief 
(usually) description of the chosen 
group of files. At the bottom will be the 
RCTIDN> prompt indicating you can 
download at this point. Just above that 
will be the actual filenames. While we 
don't have enough room this month to 
get into the actual downloading proce- 
dures, I would like to leave you with 
some idea of what the extensions to 
those filenames mean. 

When Marty Goodman (MARTY- 
GOODMAN) started working in the data- 
bases a year or so ago, he proposed a 
standardization of filename extensions. 
The result has been a set of meaningful 
extensions that have changed only to 
allow room for new developments, 
Color Max 3 and CoCo Max III files 
being notable examples. The standard 
list of allowable extensions and a brief 
explanation of each is as follows: 

BR5 — a BASIC program stored in 
ASCII format. 

BIN — binary data or machine lan- 
guage files. 

CP13 — a binary picture file for CoCo 
Max 111. 

DOC — indicates file is an ASCII 
documentation file for a program. 



MGE — a binary Color Max 3 picture 
file. 

MUS — a binary Musica file that can 
be played with the Player utility to 
be found in the Music database. 
Music files that can be 
(C)LOfiDMed and EXECed will 
have the .BIN extension. 

ORG — an Orchesira-90 '/ CC file in 
ASCII format. 

PIX — indicates a picture file that has 
been converted to an ASCII BASIC 
program via the MAXCMP com- 
pressor program. It will create a 
PMQDE4 picture when it is run, 

SRC — assembly language source file 
in ASCII format. 

TXT — general text file that doesn't 
fall under the BfiS, DOC, PIX or 
SRC conventions above. 

TOK — a BASIC file that has been 
stored in tokenized form, also 
referred to as compressed BASIC. 
In any event, the file is in binary 
format and can be downloaded 
only with an error-checking pro- 
tocol such as Xmodem. 

The importance of the extensions 
given above will become apparent when 
we continue with our discussion of the 
databases next month. ffi\ 
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LOTTO 

WITH YOUR HOME COMPUTER! 



Use your home computer and Soft- 
Byte's amazing new "Lotto Program" to 

get more winning tickets. 

In just seconds this software analyzes 
past winners and produces a powerful 
probability study on easy-to-read charts. 
With a single press of a key, you'll see 
trends, patterns, odds /evens, sum totals, 
number frequencies, and much more. It 
also includes automatic number wheeling, 
instant updating, and a built-in tutorial, 
Ask your software dealer. 

APPLE, IBM, and Commodore $24.95 

Atari, Radio Shack $21.95 

Macintosh (requires M/S basic) $29.93 

Back-up Copies $3.00 

Add $2.00 shipping and handling. Credit card 

orders approved by phone and shipped same day. 

Make checks payable to SOFT -BYTE and mail to: 

P.O. Box 556 Forest Park 
Dayton, Ohio 45405 

513' 
soft- 278-1110 




KLC SOFTWARE 

1121 Finfrock • Pasadena, TX 77506 
(713) 472-0078 

AVATEX 1200e Auto Answer/Dial 

100% Hayes compatible with 
FREE CompuServe Time - $95.00 

STAR NX-1000 Multi-Font Printer 

144 cps Draft/36 cps NLQ - 20 TYPE STYLES! 

$199.95 

DS/DD DISKETTES 

10 for $5.95 • 100 for $44,95 

Lifetime Guarantee! 

QUME DS/DD half-height Disk Drive 
ONLY $89.95 

Send your check or money order or call 
(713) 472-0078 

C.O.D. accepted • Sorry, no credit cards 

Please add $4.00 for shipping/handling charges 

Texas residents: add 7% sales tax 
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What *s new in the OS-9 sector 



New Tools, New Toys 



By Dale L. Puckett 
Rainbow Contributing Editor 



The telephone rang one evening 
just before Christmas. Tony Di- 
Stefano was calling from Canada 
to tell me his new Super Controller II 
was ready for release. My copy had been 
mailed and Tony hoped I would get it 
before Christmas, 

We had talked about this direct mem- 
ory access disk controller several limes 
in the past year and I couldn't wait to 
get my hands on it. Tony has also 
designed many other hardware add-ons 
for the Color Computer during the past 
several years, and they all have per- 
formed flawlessly. And most impor- 
tantly, they've been affordable. 

The pricing of the Super Controller 
II is "very competitive," although Di- 
S lel'a no wasn't exactly sure what the 
final selling price would be. He said the 
suggested retail price will be $149.95, 
but he expected the selling price to be 
much lower. My sources tell me it 
should come in at a pricejust below the 
Sardis controller — the only no-halt 
controller for the Color Computer 
presently on the market. 

DiStefano's new controller mounts in 



Dale L. Puckett, who is author of The 
Official BASIC09 Tour Guide and co- 
author, with Peter Dibble, of The 
Complete Rainbow Guide to OS-9, is a 
free-lance writer and programmer. He 
serves as director-at-large of the OS-9 
Users Group and is a member of the 
Computer Press Association. Dale is a 
U.S. Coast Guard lieutenant and lives 
in Rockvi/le, Maryland. 



Slot 4 of your Multi-Pak Interface - 
just like a Radio Shack controller. In 
fact, if you don't install Kevin Darling's 
special device driver, Tony's new con- 
troller acts just like a Radio Shack 
controller. It is completely compatible 
with the Tandy controller and will run 
all RS-DOS software right out of the 
box. It has one ROM socket that can 
hold either a regular 24-pin chip like 
that found in the Radio Shack con- 
trollers or a 28-pin jumper-selectable 
EPROM like the 2764 or 217128. You 
can also plug your Disto parallel print- 
er/real-time clock, hard disk adapter, 
or RAM disk expansion boards into it. 

Tony held the current drain of the 
controller well below the 300 milliamps 
recommended by Radio Shack. In fact, 
it still comes in below Tandy's recom- 
mendation even after you add one of the 
Disto add-on cards. 

However, the beauty of this new 
CoCo hardware cartridge surfaces 
when you install Darling's CC3 
Disk.irq device driver in your OS-9 
Level II boot file and reboot. DiStefano 
worked closely with the author of Inside 
OS-9 Level II while he was developing 
the driver for this controller. It is 
completely interrupt-driven. 

Here's how it works. When the con- 
troller issues a read or write command, 
the data is placed in a memory buffer 
on the controller card. Then, the con- 
troller fires the irq and the computer 
services it to get the data. While the 
transfer from the disk to the controller 
is taking place, the computer continues 
lo process other data. Even when the 



drive needs to step back and forth on 
the floppy, the computer works away. 
With this controller, you'll no longer 
need to stop and wail for a disk oper- 
ation to be completed before you can go 
about your business. 

The full type-ahead feature that 
veteran OS-9 users have loved since day 
one has finally arrived. No longer will 
you lose a keystroke or two when you 
type a command line while your disk 
drives are running. This is a fantastic 
feature. Once again, Tony DiStefano is 
lo be congratulated. 

What's next from Disto? No one 
knows — not even Tony. However, he 
does have a lot of things on his CoCo 
wish list. At the top of that list is a color 
digitizer that takes the output from a 
video cassette recorder, processes it and 
then feeds it into your CoCo. Sounds 
interesting . . . and useful. 

Games, Too! 

Several days after we taiked with 
Tony, we received Sub Battle, a new 
CoCo 3 game from Epyx — the same 
submarine simulator that runs on the 
IBM PC, Apple II and Commodore 64/ 
128 computers. Designed by Digital 
Illusions and sold by Tandy, it makes 
OS-9 shine. 

Your goal is to command a World 
War 11 submarine, complete a mission 
and survive. As a beginner you can start 
with some target practice against an 
enemy convoy and then move on to a 
single mission game in a real combat 
setting. When you get brave, you can 
assume command of the sub and replay 
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actual incidents that took place during 
World War II. Sixty different missions 
— 24 American and 36 German — are 
included in this Simulation. 

Sub Battle is an excellent graphics 
game. You navigate your sub by keeping 
an eye on view, heading and speed 
gauges. You also have map displays to 
keep you on track. If the lunch whistle 
blows, you can save your mission to a 
file on a floppy disk and reload it later. 
This game is a lot of fun to play. I 
particularly like the response you get if 
you try to raise the periscope while you 
are submerged: "But you'll drown, Sir!" 
Try it! It's not just a game; it's an 
adventure! 

Multi-Vue Fix 

Last month we urged you to be care- 
ful when you name files on a disk that 
you plan to use with Multi- Vue. Quite 
often, GShell, the new graphics shell, 
will hang up if it encounters a file with 
a name that ends with a period followed 
by exactly three characters — unless the 
three characters used are in a Multi- Vue 
A1F filename. 

Kevin Darling jumped on the prob- 
lem immediately and wrote a program 
to clear the data memory area used by 
GShe 1 1 before starting Multi- Vue. That 
improved things a bit, but didn't really 
solve that problem. Darling continued 
to pursue the problem with Kent Mey- 
ers, hacker extraordinaire, who offered 
the ModPatch script shown in Figure 1 . 
If you're running Multi-Vue, it's abso- 
lutely essential that you run this script. 
Store it in a file named FixGS in your 
current data directory. Then type the 
following command line: 

0S9: r1odPatch<FixGS<ENTER> 

Getting Organized 

I'm betting that once you start run- 
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Figure Is FixGS 





ning Multi-Vue, you are going to want 
to get organized. In the low resolution 
mode, GShell displays only 12 docu- 
ments or folders on your screen. The 
situation improves somewhat when you 
use the high resolution mode and can 



see 24 icons displayed eight columns 
wide by three rows deep. 

We've talked about OS-9's hierarchi- 
cal directory system and discussed the 
advantages of keeping a small number 
of files in each directory. You can save 



LOWEST PRICES EVER FOR COCO 3 PRODUCTS! 



TURBO RAM BOARD 

51 £K BOARD OK BOARD 

$89.95 $29.95 

Includes RAM Board Utilities 



RAM BOARD UTUTIES 
All 3 for only $19,95 




a Fast 120 nsec RAM Chips 
O Easy-to-Follow 

Instructions 
G No Soldering 



DRAM Dusk for RSDOS* 

Q Print Spooler* 

□ Sophisticated Memory Test Program 



PAL UPGRADE — ONLY $7.95 
for your gray or while MULTI-PACK (26-3024) 



COCO 3 UTIUTES 
*pl4.i7D each 

□ Disk Duplicator* 
Q 640x640 Joystick Driver* 
D Coco Max 2 to Coco 3 Patch Routines* 
All 3 for only S39.9S! 

PYRAMix Arcade Game'— $19.95 

■Products developed by ColorVeruure 



Shipping & Bundling; 

Within trie U.S. & Canada: add S3.00 
Outside l he U.S. & Canada: add S5.00 
COD Orders: add S2. 00 
(Calif. Resident: add 6% sales tax) 
(VISA or MC orders accepted) 



RAINBOW 

CERTIFICATION 

SEAL 



Send Clieck or Money Order ro: 
Performance Peripherals 
1 1 432 Pena Way 
Mira Loma. CA 91752 

Or Call (714) 681-3007 



"30 DAY MONEY-BACK GUARANTEE PLUS FULL 1 YEAR WARRANTYI 
Prices subject to change without notice. 



New! $99.95 

No-Halt DMC Floppy Disk 
Controller for your Cocol , 2, or 3 

(not currently cert I lied) 
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Submitting 

Material 
To Rainbow 

Contributions to the rainbow 
aie welcome from everyone. We 
like to run a variety of programs 
that are useful/helpful/fun for 
Other CoCo owners 

WHAT TO WRITE: We are inter- 
ested in what you may wish to tell 
our readers We accept for consid 
eration anything that is well- 
wiitten and has a practical appli- 
cation tor the Tandy Color Com- 
puter If it interests you, it will 
probably interest lots of others 
However we vastly prefer articles 
with accompanying programs 
which can be entered and run. The 
more uniquethe idea, the morethe 
appeal We have a continuing need 
for short articles with short list- 
ings These are especially appeal- 
ing to our many beginners 

FORMAT: Program submis- 
sions must be on tape or disk, and 
it is best to make several saves, at 
least one of them in ASCII formal 
We're sorry, but we do not have 
time to key in programs and debug 
oui typing errors All programs 
should be supported by some ed- 
itorial commentary explaining 
how the program works. We also 
piefer that editorial copy be in- 
cluded on the tape or disk using 
any of the word processors cur- 
rently available for the Color Com- 
pute! Also, please include a 
double-spaced printout of your 
editorial material and program 
listing Do not send text in all 
capital letters; use upper- and 
lowercase 

COMPENSATION: We do pay 
for submissions, based on a 
number of criteria Those wishing 
lenumeration should so state 
when making submissions. 

For the benefit of those who 
wish more detailed information on 
making submissions, please send 
a self addressed, stamped enve- 
lope (SASE) to: Submission 
Guidelines, the rainbow. The Fal- 
soft Building, P O. Box 385, Pros 
pect, KY 40059. We will send you 
comprehensive guidelines. 

Please do not submit material 
currently submitted to another 
publication. 



a lot of time if you do that. It takes just 
under five seconds to redraw the screen 
each lime you scroll from one screen- 
full of document icons to another while 
browsing through a directory folder. 
You will find it easier to get to your 
documents and application programs if 
you store just one screen-full in each 
directory. 

There's no question about it run- 
ning an application program or utility 
by double-clicking the mouse button 
while pointing to an icon is much more 
enjoyable than remembering a long 
pathlist to the file that holds your 
program. Before you can do this, how- 
ever, you'll need to prepare application 
information files — AIFs - and icons 
for the utilities you use most often. 

Here's the quick and dirty way to get 
started. For now, ignore the fact that 
you don't have an icon editor. You do 
have an icon you can use — it's stored 
in a file named Icon.dema in the IC0N5 
directory of your original system disk 
from Tandy. 

Since the icon attached to any partic- 
ular application program or document 
is defined in the application informa- 
tion file, it really doesn't matter that you 
have only one icon. You can write an 
A1F file that points all of your programs 
and utilities to the same icon. You'll still 
be able to tell your programs apart, 
however, because the name of the pro- 
gram in each AIF file will appear below 
each icon. 

Later you'll want to download a copy 
of a public domain icon editor for 
Multi-Vue. You'll find one in the data- 
base section of rainbow's OS-9 Online 
S1G on Delphi and on CompuServe's 
OS-9 SIG. The icon editor will let you 
make your own icons for your applica- 
tions. By the way, you'll want to store 
alt of your icons in the same place. A 
directory named ICONS in your current 
execution directory, CUDS, is the most 
appropriate place for this directory. 

Many people have already started to 
work on a set of icons for their favorite 
OS-9 applications, and you'll find 
several files fuli on the commercial 
databases mentioned above Once you 
have downloaded these files, you can 
modify them with the icon editor to suit 
your own taste or simply use them with 
your own applications and documents. 

For example, after 1 downloaded an 
icon named icon, tsword from the OS- 
9 SIG last week, I noticed that it pic- 
lured an old-fashioned quill and a bottle 
of ink. I immediately thought it would 
make an excellent icon for DynaStar, so 
I quickly set up an application informa- 



tion file named Fiif.dsa to put it to 
work. Here is a listing of that file: 

ds 

icons^ icon. Lsuard 

9G 

2 

B0 

24 

3 

2 

The next time I double-clicked on the 
dircctoiy where 1 had stored Fiif.dsa, 
an icon with a quill and ink bottle 
appeared with the letters ds below it, 
Multi- Vue had automatically read the 
file Pi i f . dsa and learned that the name 
ot the application 1 wanted to run was 
named ds. 

Later when I double-clicked that 
icon, Multi-Vue read the file Pi f .dsa 
again and told OS-9 that 1 wanted lo 
run a program named ds. It assumed 
that I had stored ds in my current 
execution directory. Further, it tells OS- 
9 that I do not want to pass any addi- 
tional parameters when ds is started. 

Multi- Vue found the icon it displayed 
in a file named icon, tsword. That file 
had its execute and public execute bits 
set and was stored in a directory named 
ICONS, which I had created in CMOS, my 
current execution directory. 

When Multi- Vue read the fourth line 
of the file Fiif.dsa, it learned that 1 
wanted OS-9 to start DynaStar with 96 
pages — 24 K, — of memory. In the next 
three lines it learned that I wanted OS- 
9 to start DynaStar in an 80-by-24, Type 
2 window. The last two lines tell OS-y 
to display black letters on a green 
background. A Type 2 window is con- 
figured to display text only and runs 
much taster than a graphics window. 

To get to this point, GShel I - your 
visual interface to OS-9 - followed a 
precise sequence of events. 

When it iirst reads the name of a file, 
it checks to see if it is a directory. If so, 
it displays a folder on your screen. If the 
file is not a directory, it checks its 
attributes to see if it contains executable 
code. If it does, it displays an object icon 
that visually tells you the file contains 
an application program or utility you 
can run on your Color Computer. To 
run a program with an object icon, you 
must first select the icon by pointing to 
it with the mouse and clicking once. 
Then, you click on "open" under Multi- 
Vue's file Menu 

If the file checked is not a directory 
and not executable, it can only contain 
data. However, that data can take any 
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form. For example, it may simply be a 
text file you created with DynaSiar . . . 
or a program source file you created 
with BASIC09. However, it may also 
contain information that can help 
Multi- Vue automate your Color Com- 
puter. 

If, for example, a file's name is aif . 
followed by any three characters that 
form a legal OS-9 filename, GShell 
knows that it contains an application 
information file. Likewise, if the name 
of a file ends with a period followed by 
three letters that have been previously 
used in an application information file, 
then GShel 1 knows that it is a data file 
created by the application program 
named in that AIF file. Let's take a 
closer look at this last condition. 

Earlier we mentioned that we had 
described an application information 
file named flif .dsa. If we later save a 
DynaSiar file with a filename that ends 
in .dsa, then GShell will know that it 
was created by DynaSiar. If we double- 
click the mouse button while pointing 
to this file's icon, it will start DynaSiar 
and automatically open our document 
for editing. Give it a try! 

To keep from getting confused, 
there's an important thing you should 



note here. If you create a new file with 
DynaSiar named Ml/Tester . dsa, it 
will not appear on the screen that 
displays your current data directory 
until GShel 1 reads that directory again. 
To check this out, I created a file named 
MVTester.dsa and saved it in my 
current data directory. Then I closed 
DynaStar to return to Mitlti-Vue. 1 did 
not see my new file. 

Suspecting this would be the case, I 
clicked on another drive and displayed 
the documents in its root directory. 
When I moved back to my original data 
directory — presto, the new file was in 
place and was marked by the quill and 
ink bottle icon. Just to make sure 
everything was working, I double- 
clicked on it. A second later, DynaSiar 
was running and the file MVTes ter. dsa 
was ready for editing. It passed the lest. 

If you have applications like Dyna- 
Siar and BAS1C09 that you run often, 
you'll probably want to load them into 
memory in your "start-up" file so they'll 
be there instantly when you double- 
click. 

When GShell checks a data file and 
does not find an AIF-file or a data file 
created by an AlF-driven application, it 
displays that file as a simple document. 



You can find out what's in that docu- 
ment by selecting it with your mouse 
and acting on it with any of the active 
verbs under the Multi-Vue file menu. 

About the Clipboard 

Those of us who use other computer 
systems at work that provide a clip- 
board for cutting and pasting within 
and between application programs have 
looked forward to Muhi-Vue's release 
for a long time. We were surprised to see 
that Mtdti-Vue\ GShell did not make 
use of the clipboard capability that had 
been designed into the heart of the 
system. It is, however, the job of the 
application programmer to provide the 
clipboard capability within his or her 
program. 

Before wc get to the point where we 
can cut data from one application and 
paste it in another, we must develop a 
set of standards that every application 
programmer should follow. To this end, 
Tandy has come up with a set of sug- 
gestions they hope all application 
vendors will follow. If the vendors don't 
follow this lead, we will all suffer. 
Incompatibility problems will then 
prevent our Color Computers from 
reaching the performance goals we seek. 



OS-9 SOFTWARE from D. P. JOHNSON 

L1 UTILITY PAK - Contains 40 useful utilities thai run under both level I and II 
OS-9. Included are a complete set of "wild card" file handling utilities, a disas- 
sembler, a disk sector editor, and the MacGen command language compiler. 
MacGen will allow you to generate many useful command macros in minutes, 
much more useful loan procedure tiles. Macro source is included tor a macro to 
implement an archival backup type function. $49.95 

L2 UTILITY PAK - Contains a Level II "prinlerr" function that also shows the 
pathname being searched tor when "not found" or permission lype errors oc- 
cur. Also contains level II software ram disk driver. Ten other utilities included, 
so me usef u I f or I e ve 1 1 a ISO . $39.95 

LUL2 COMBINATION PAK both of above together for $75.00 
SOISK - Standard disk driver module replacement allows full use of 40 or 80 
irack double sided drives wilh OS-9 Level I. Full compatibility wilh CoCo 35 track 
format and access all other OS-9 non-CoCo formats. Easy installation. $29.95 
SDISK+BOOTFIX - As above plus boot directly from a double sided diskette. 
$35.95 

SDI5K3 - Level II version of SDISK driver. Same features as level I (except 
bootfix not required to boot from double sided). $29.95 

PC-XFEB UTILITIES ■ Programs to format and transfer iiles to/from MS- 
DOS'" 1 diskettes on CoCo under OS-9. (Requires either SDISK or SDISK3 to run 
depending on which level of OS-9 you are using) $45.00 

MSF ■ MS-DOS disk lormat file manager. More complete tile transfer capabil- 
ities lor level II only. (Requires SDISK3 to operale). $45.00 

CCRD 51 2K byte RAM DISK CARTRIDGE - Operates faster than similar 
device sold by others. Requires RS Mullipak interface, two units may be used to- 
gether lor 1 MB. OS-9 Level I & II drivers and test software included. $169.00 
All diskettes are in CoCo OS-9 format; other OS-9 formats can be supplied for 
S2.00 additional charge. All orders must be prepaid or COD, VISA/MC accepted, 
add $1 50 SSH for software, $5.00 lor CCRD, addilional charge for COD, 

D. P. Johnson, 7655 S.W. Cedarcrest St., 
Portland, OR 97223 

(503) 244-81 S2 (For best service call between 9-11 AM Pacific Time, Mon.-Frl.) 
OS-9 is a trademark ol Microware arid Motorola Inc.. MS-DOS is a trademark of Microsolt. 
Inc. 



DISKMASTER HARD DISK SYSTEM 

The DISKMASTER system has features no other system has: 

- 20 MB SCSI hard disk 

- High Density floppy drive with over 1 MB storage per disk 
(The ONLY HD floppy system available lor Ihe COCO. 

at leasl twice Ihe speed of normal floppies.} 

- Battery backed up Clock/Calender 

- 3 Serial ports 

- Bi-directional parallel (printer) porl 

- Expansion port for additional Floppy drives 

- Single cable interface to COCO 3 

- All interface software for OS-9 level II included 

$1295.00 
- Optional RAMDISK up to 1.5 MB (Call for price) 

A dual HD floppy model is available with all the features listed above 
except the hard disk is replaced by a second floppy. $795.00 
You can get a cheaper system elsewhere but not with all the features 
and performance of the DISKMASTER. 

PLUS-100 512K MEMORY EXPANSION 

$109.00 {+$2.50 S&H} 
The most reliable 51 2K memory expansion board for the COCO 3. Our 
products are designed to be the most reliable, not the cheapest. 
Send for a COLOR BROCHURE fully describing the DISKMASTER and 
PLUS-100 Memory Expansion. 
Visa and Mastercard accepted, call for Diskmaster shipping charges. 

HEMPHILL ELECTRONICS INC. 
334 Paseo Tesoro 
Walnut, CA 91789 

(714) 598-7799 {Phone hrs. 10 AM-2 PM Mon.-Thurs. Pacific Time) 
You may also contact D. P. Johnson (see left) to answer your techni- 
cal questions about the DISKMASTER system. 
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About 
The One-Liner 
Contest . . 



the rainbow's One-Liner 
Contest has now been ex- 
panded to include programs 
of either one or two lines. 
This means a new dimen- 
sion and new opportunity 
for those who have "really 
neat" programs that simply 
just won't fit in one line. 

Here are the guidelines: 
The program must work in 
Extended basic, have only 
one ortwo line numbers and 
be entirely self-contained — 
no loading other programs, 
no calling ROM routines, no 
poked-in machine language 
code. The program has to 
run when typed in directly 
(since that's how our read- 
ers will use it). Make sure 
your line, or lines, aren't 
packed so tightly that the 
program won't list com- 
pletely. Finally, any instruc- 
tions needed should be very 
short. 

Send your entry (prefera- 
bly on cassette or disk) to: 

THE RAINBOW 

One-Liner Contest 

P.O. Box 385 
Prospect, KY 40059 



The first thing your application pro- 
gram must do is highlight the clipboard 
option under the hourglass on the menu 
bar. When you do this you are telling 
the user that he may select a portion — 
or all — of his data using the mouse and 
then click on the clipboard option under 
the hourglass where he can act on his 
data with the active verb of his choice. 
When he clicks on the word clipboard 
he wilt sec the dialogue box below. 



««CL 1 PB[]fiRD»» 



COPY 
CUT 
MERGE 
PASTE 



VIEW 
QUIT 




The View option above lets the user 
see the data code and its extension so 
he can determine if he wants to replace 
an existing clip file with new data. 

Copy and Cut will delete an existing 
clipboard file and write a new file. 
Merge adds more data to the clipboard 
file. It is up to the application pro- 
grammer to ensure that it is the same 
type of data. 

Paste inserts the data in the clipboard 
file into the application's data space at 
the position pointed to by the cursor. 
Quit exits the clipboard function with- 
out changing anything. After you paste 
some data into an application, the 
clipboard function returns control to 
the application program. If no clip file 
exists, your program must be smart 
enough to know it and warn the user. 

When the user selects Cut or Copy, 
your program should take the selected 
data and write it to a file named ^OD/ 
Clip_tt. The pound sign (H) represents 
the user ID of your application pro- 
gram's process. The file should contain 
a two-character Hex representation of 
the data type you are putting in the 
clipboard, a period and three-letter 
code that tells the origin of the data, 
plus one space and a carriage return 
without a line feed. The data you are 
saving to the clipboard follows this 
standard prefix. A typical clipboard file 
that uses this format is listed below; 



[03) (VEF)(tt0D) 
[EOF] 



DfiTFl 



Tandy has proposed the following 
code definitions, which I propose we all 



start using now so we'll have a standard 
right from the start: 

00=flSCII 
01=Binary 

02~klindous Draw file 
03-VEE file 
04-GIF file 
05=RLE file 

0S - £FF = undefined 

If your application program generates 
a unique data type, you can assign any 
code above 06 to it. If you do this, you 
will want to publish that code in your 
documentation and post it on the OS- 
9 forums on CompuServe, Delphi and 
GEnie so everyone else can avoid using 
the same number. 

They Call It Shell+ 

There's really good news for dedi- 
cated Color Computer 3, OS-9 Level II 
hackers in the CompuServe and Delphi 
OS-9 SIGs these days. Kent Meyers, 
Kevin Darling and Ron Lammardo 
have joined forces to create Shell* — a 
replacement for the original Tandy/ 
Micro ware OS-9 Shell 

This program includes fixes to bugs 
in the original Shell and many new 
features. It is super. These guys are to 
be congratulated. 

Shell* will now unlink the proper 
name. If the module name a program 
was trying to unlink did not match the 
command filename you typed when 
using the original Shell, it would stick 
in memory until you manually unlinked 
it, Shell* fixes this by reading in the 
actual module name instead of the name 
on the command line. 

The new Shell also prevents you from 
attempting to execute a write-only 
device as a procedure file and helps you 
start up Level II windows by writing a 
null to the standard output path when 
you run it. You can now also redirect the 
standard and error output paths to a 
write-only device. The old She/1 tried to 
open the path in the UPDATE mode. The 
"quote" bug has been fixed also, so if 
you leave off the second quote mark in 
a command line, Shell + will not crash. 

The exciting news about Shell* is 
substantiated when you look at the 
additions. For example, when you work 
in a windowing environment like OS-9 
Level II, it is very easy to forget which 
window you are working in. To solve 
the problem, type this line: p=053[E] :. 

After you type it, Shell* will append 
the name of the window you are using, 
and your new OS-9 command prompt 
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will look like this: 0S9[W?.]:. If you 
would rather know the process number, 
you can type p=053 [ 8 ] : , and then you 
will see QS9[0G] :. 

Of course, the 0G will change as the 
number of your process changes. With 
Shell*, your prompt can be up to 21 
characters long. 

Global procedure files — Shell scripts 
- can be placed in your execution 
directory when you are using Shell*. To 
use this feature, take a procedure file 
you use all the time and copy it to CMD5. 
Then set the execute and public execute 
bit with the ATTR utility. This feature 
makes it easy for you to add some 
commands that you use often. 

The shell search path for Shell + is 
memory, execution directory modules/ 
scripts, data directory scripts. Here's a 
sample SheB+ script thai Kevin Darling 
uses to start Flight Simulator. 

xmode /uiG type=l ; display c >/ 

wG 

chd /dd/games/fs 

(fsO»/ui6 ; xmode 'wG 

type -B0)& 



This procedure file opens a VDG- 
type screen on Window /W6 and starts 
Flight Simulator. When you exit Flight 
Simulator* it resets /W6 to a graphics 
window. All of this is done in the 
background. 

A new feature that lets you append or 
overwrite a file moves our Color Com- 
puter OS-9 Level II closer to OSK and 
Unix. Now you can append the output 
of a program to a file by typing DS9: 
merge this that theother >+ Dld- 
File. 

If you type >- instead of >+, you 
cause Shell+ to overwrite the contents 
of the original file. The + and - oper- 
ators also work with the standard error 
output path ... or both. This means 
you can also use »+ and >»+. 

AD of these new features are great, 
but we've saved the best for last: Shell+ 
lets you execute RunB programs from 
the OS-9 command line without typing 
the parentheses and quotation marks. 
For example, here's the old and new 
command lines 1 use to start Wiz: 

DS9: Wiz ("Delphi") 
0S9: Wiz Delphi 



Take your pick. Download this pro- 
gram and use it! But don't forget to tell 
these guys how great it is so they will 
keep adding new features. They're 



already talking about Shell variables, 
Go scripts, Command structures, in- 
memory Shell scripts and an environ- 
ment. Fantastic! 

More Good News 

If you need a fourth-generation data- 
base application like Sculpt or but are 
on a budget, we have good news. M PD 
USA was sued by MPD in London and 
Frank Hogg at FHL was able to pick 
up hundreds of copies of Sculptor at an 
outstanding price. Until he runs out, 
you can buy Sculptor for the Color 
Computer for SI 49. 95 — that's half the 
standard FHL price and far below the 
program's S450 list. However, when this 
shipment is sold, this price is history. If 
you need tliis application, act now. 

WordPak RS Drivers for Co Co 3 

We can't thank Dennis Skala of 
Fairview, Pennsylvania, enough for his 
help during our OS-9 seminar at R A1N- 
BOWfest Princeton. He ran the 
computer and performed a live demon- 
stration of OS-9 Level II windows while 
we told how to create them. It added a 
lot to the presentation. 

We often get requests for device 
drivers and, once again, Dennis has 
answered the call. Last year we pub- 
lished his RAM disk drivers for the 
"Banker." If you have graduated to the 
Color Computer 3 but still have a 
WordPak RS lying around, you'll 
thank Skala for these drivers that will 
bring your 80-eolumn monochrome 
display back to life. If you're trying to 
learn how to write a device driver for 
OS-9, study Skala's excellent code. 

Skala wanted to use the existing coB0 
subroutine module, so he wrote a small 
driver that emulates the functions of the 
Level I CCIO driver. His WordPak RS 
works fine at the 2 M Hz clock rate used 
by the Color Computer 3. However, he 
did need to add a software delay at one 
point in the caB® subroutine. He sup- 
plies a procedure file that you can use 
with Debug to make the changes. You 
will need to load co80 into memory by 
itself so there will be room for the extra 
16 bytes added by his patch. 

Skala thinks that you may also be 
able to get your old WordPak I or 
WordPak II to work with these drivers 
if you make a hardware modification to 
clear up an addressing conflict with the 
Color Computer 3. His drivers support 
all of the CoCo 3 display commands 
except "underline," "blinking," "insert a 
line" and "delete a line." All relevant 
"set status" and "get status" codes are 
supported. The driver assumes co80 is 



r^iS 



.800 



.2*6 



.38** 



535.00 
875.00 

1110.00 
1500.00 
1930.00 
1215.00 
375.00 
155.00 



95.00 
220.00 
335.00 
510.00 
145.00 
160.00 

75.00 



250.00 

155.00 
180.00 
200.00 

509.00 
450.00 

265.00 
200.00 



TANDY COMPUTERS 

1000-HX256K1-3 1/2" Drive. 
1000-TX640K 1-3 1/2" Drive 
3G00-HL512K 1 5 1/4" Drive 
3000 640K 1 5 1/4" Drive 
4000 1 Meg 1 3 1/2" Drive 
1400LT Portable Computer 
102 Portable Computer 24K 
Color Computer 3 128K 

MONITORS & BOARDS 

VM-4 Monochrome Green 

CM-5 Color RGB 

CM- 11 Color RGB 

EGM-1 Color RGB (EGA) 

Tandy Dual Display Card 

Tandy EGA Card 

Zucker Mono Graphics Card 

DRIVER 

Color Computer Drive 
Portable Drive 100/102/200 
5 1/4 J External Drive 1000EX 
3 1/2" Externa! Drive 1000EX 

Tandy 20 Meg Hardcard 
Zucker 30 Meg Hardcard 
Seagate 20 Meg Hard Drive 
AT HD/1.2M Controller 

EXPANSION BOARDS 



Zucker Serial Board 45.00 

Zucker MFB 51 2K for 1 000SX 1 35.00 

Zucker MFB OK for 1000 103.00 

Zucker 1200 Baud Modem Card 72.00 

PRINTERS 

DM P- 106 Dot- Matrix 165.00 

DMP-1 30 Dot-Matrix 255.00 

DWP-230 Daisy Wheel 335.00 

DWP-520 Daisy Wheel 730.00 

DMP-440 Dot-Matrix 595.00 

DM P-2 1 20 Dot-Matrix 1 325.00 

LP- 1000 Laser Printer 1635.00 

Epson LX-800 Dot-Matrix 1 95.00 

Epson FX-86E Dot-Matrix 320.00 

Epson FX-286E Dot-Matrix 475.00 

Epson EX-800 Dot-Matrix 425.00 

Epson EX- 1000 Dot-Matrix 585.00 

Epson LO-500 Dot-Matrix 375.00 

Epson LQ-850 Dot-Matrix 520.00 

Epson LQ-1 050 Dot-Matrix 695.00 

Epson LQ-2500 Dot-Matrix 905.00 

Epson GQ-3500 Laser 1 580.00 

Price's Subject To Change. 
Please Call for Current Prices. 
Send For Price List. 

All prices and oilers may tx? changed or ttrlhdmwn without notice Adver- 
tised pices ere cash prices COO accepted add 2<Hi .[minimum chnrgrj 
StrJ M) M C. Visa add Z%. All nun doltKtlve llama require relurn 
■neicttandiSA aLilhotiiBlion Call lor RMA Nurnow odors reluming. 
Delivery is subject In ptoducl availahtlity. Arid ', '',-*,. tor shipping and 
handling. S5 00 rnmimiim charge 

TM ■ Registered Trademark of Tandy, Epson, anc IBM 
Monday thru Friday 9atrv6pm EST. 



aaaan 

I1DDGD 

BHB Ijddlih^lTcos 

124 South Main Street, Perry, Ml 48672 

CALL 1-517-625-4161 or TOLL-FREE 

1-800-248-3823 
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already in memory and will not auto- 
load it like CCIQ. 

The listing of uip.dd is the device 
descriptor. Wecho is a device descriptor 
that lets you use the WordPak as a 
window device. You use it with the 
following code sequence: 

iniz uecha uip 

ucrsate /uechrj -s=2 80 24 1 



shell </wechQ»>/wp& 

The only "gotcha" is the fact that the 
terminal pause and CTRL-W functions 
will not work with this configuration. 
Otherwise, you are home free. After you 
have assembled Dennis' driver, descrip- 
tors and subroutine module, you can 
experiment with them by typing the 
following: 

chd /dl 

merge wpdru.dr up.dd co80 
wecho. dd >wptest 
attr wptest e pe 
load /dl'wptest 
link wp 
link coO0 
link wecho 
iniz up wecho 

If everything performs the way you 
want it to, you can use DSSGen or 
Con fig to move these modules into 
your OSgBoot file. If you have any 
questions, Skala invites you to send 
them to him along with an SASE at 
5423 W. Sebago Drive, Fairview, PA 
16415. 

Packet Radio 

Add another sin to the list. Several 
years ago, George Dorner, the treasurer 
of the OS-9 Users Group kept telling me 
about packet radio on the amateur 
radio bands. He's right — it's fascinat- 
ing. It's like being on CompuServe or 
Delphi without paying an hourly fee. 
Besides that, it's fun. There's a wealth 
of information waiting for you on 
amateur radio bulletin boards. Get your 
license and go for it. 

If you're looking for OS-9 software 
for packet radio, I understand that 
Dwayne Bruce, VE3FXI, at 29 Vanson 
Avenue, Nepean, Ontario, Canada K2E 
6A9, will send you the C source code for 
his WORLI compatible bulletin board 
program if you send him a 5 '/4-inch disk. 
Check it out. His code could even help 
you set up a regular telephone-driven 
BBS system. Tell him to send any 
comments to me, KOHVD, @ K4QQ. If 
you're a ham and active on packet 



Listing 1: CDB0. patch 

* This is a script fiie to use debug to patch the coSJZ subroutine for the 

* tfordpak RS. This is written to patch edition #2, iength - Sff295, 

* CK.C - SC4F197. Load this version of co8(J into memory before using. 

* If using levei II, make sure there is room In back of the moduie for 

* the additional length. Use debug which has been patched for correct 

* operation under level II; or patch using level I OS-9. 
* 

traode .1 -pause 

-p -x -t 

debug 

1 co80 

. .+JJ3 

S* This lengthens the module by Sip bytes. 

ex 

- A5 

1 co80 

, ,+pa 

S* This corrects the header parity for the new length. 
ex 

- 5C 

1 coSfT 
. .+1D 
S* This changes the cursor to a blinking underline. The second character 

* is the starting line of the cursor - e.g. a value of S60 would 

* result in a blinking block cursor; a value of S65 in a blinking half 

* block cursor, etc. Using a zero for the first digit will result in 

* a non-blinking cursor. N.B. - changing this In this file will make 

* the given CM value incorrect. 
ex 

- 69 

1 coSjJ 

. .+21? 

S* This is the branch to the new code . 

ex 

- 99 

- 74 

1 coSJJ 

. ,+278 

S* This corrects an apparent typo in the original ( LDA -> LDB ) 

ex 

- C6 

1 co80 

. .+281 

}* This patches the existing code to restore the proper cursor 

* on receipt of a $5, $21 sequence 
ex 

- fJA 

- 81 

- 2A 

- 2E 

- pTD 

- E6 

- SD 

- FD 

- 93 

- 2JJ 

- n 

- C6 

- 2? 

- 86 

- JJA 

- ED 

- D8 

- {Jl 

- 5F 

- 39 l 

$* The following Is additional code to Introduce a hardware-controlled 

* delay after a clear-to-end-of-screen. 
ex \ 

, - 17 
' - FE 

- 6E 

- C6 

- 19 

- E5 

- D8 

- 01 
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- 27 

- FB 

- 16 

- FE 

- 3F 

5* This is the new CRC value 
ex 

- 8E 

- 1C 

- IE 

q 

tmode .1 pause 



radio, I'll be looking for your traffic 
there also. 

Another good contact for you may be 
John Alan Lind, KD7XG, the Orange 
Section technical coordinator of the 
American Radio Relay League. He told 
mc last February that he was porting the 
WA7MBL packet BBS system into OS- 
9 C for the CoCo. Give him a try, also. 
If you contact him, tell him to let me 
know the status of his BBS. 

Till May, 73's & CUL! □ 



Listing 2: wpdru.dr 



* * 

* Device driver for Wordpak RS * 

* * 

* For use with Level II OS- 9 * 

* * 

* Copyright 1987 by Dennis Skala * 

* all rights reserved * 

* * 



NAM WpDrv 

TTL Level II device driver for Wordpak RS 

IFP1 

USE /D0/DEFS/QS9DEFS 

USE /D0/DEFS/SCFDEFS 

ENDC 

* Note - USE /D0/DEFS/'OS9DEFS AND 

* USE /D0/DEFS/SGFDEFS STATEMENTS .ARE 

* INCLUDED BETWEEN IFF1 S. ENDC 

MOD WFSIZ , HPNAM , TYPE , REVS , START , SIZE 
TYPE SET DRIVR+OBJCT 
REVS SET REENT+1 

FCB UPDAT. mode byte - read will be error 

WPNAM FCS /WpDrv/ 
EDITION FCB 1 



EQUATES **** 

CO30FLG EQU $04 offset for jump address 
CC3BELL EQU $1017 address of cc3io bell routine 

***-* THE FOLLOWING ARE OFFSETS INTO THE MEMORY AREA **** 

* These are chosen to conform to the coB0 subroutine 

COUNT EQU $25 character count for multi-character sequences 

MULTIADR EQU $26 jump address for multi-write 

HULCHAR2 EQU $23 third character In multi- character sequence 

MULCHAR1 EQU $29 second " " " 

ROWCOL EQU $2D columns, rows 

CHAR EQU $52 single character or status code here 

JMFADR EQU $72 entry to co80 subroutine 

DIRECT FACE VARIABLES **** 



SYSFROC EQU $4A system process descriptor 
CURFROC EQU $50 current process descriptor 

**** DRIVER MEMORY AREA **** 

RMB $7C 
SIZE EQU . 

CONAME FCC "co80" CO -module name 
FCB $0D cr 

START LBRA INIT 



LBRA READ 
LBRA WRITE 
LBRA GETSTA 
LBRA SETSTA 
LBRA TERM 

* k k k kfrkk k~ k k k M rtcto^klc ki c ki ek k ic k - k - k - krk k- l rk' k i rkk ' k ' k k'k k ii' i t'kk- k k 

* INIT ENTRY: U - ADR. OF DEVICE MEM. AREA 

* Y- ADR. OF DEVICE DESCRIPTOR 

* EXIT: NO CONDITIONS 

A A > k k k1rk&x&Xft~!ckirWticki<ick1r&itirlr!rJrtrkie l t<'trtrtrkirirkit1t l trtrt1rt< 

INIT CLRA 

LEAX $1D,U clear memory from $1D 

LDB #$5D to $7A 
INIT.l STA ,X+ 

DECB 

BNE INIT.l 

LDA #CO80FLG to test if already linked 

LDX #$5018 columns, rows 

PSHS A,X,Y,U 

BSR COSETUP 

FULS A.X.Y.U 

BCS INIT. 2 if error 

STX ROWCOL, U 
INIT. 2 RTS exit 

COSETUP BITA $70, U do setup, A - parity 
BEQ C0SET.1 not already set up 
CLRB no error 
RTS 

COSET.l LEAX CONAME, PC pointer to comodule name 

PSHS A,X,Y 

LDD <CURPROC save current process pointer 

PSHS D 

LDD <SYSFROC make system process current 

STD <CURFROC 

BSR LINKIT link the comodule 

FULS D 

STD <CURPROC restore current process 

BCC CQSET.2 If linked successfully 

LEAS 5,S clean stack 

LBRA NF.ERR report error 
C0SET.2 LEAX JMPADR.U 

LDA ,S should be 4 here 

STY A.X comodule entry point address 

PUTS A,X,Y clean stack 

CLRB flag Init jump 

BRA COJMF jump to comodule Initialization 

LINKIT PSHS U link the comodule 
LDA #SYSTM+OBJCT subroutine comodule 
OSS FSLINK 
FULS U.PC 

* READ IS ILLEGAL OPERATION 

READ COMB set carry 
LDB #$CB illegal mode 
RTS 
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* WRITE ENTRY: U - ADR. OF DEVICE MEM. AREA 

* Y » ADR. OF PATH DESCRIPTOR 

* A - CHARACTER TO WRITE 

* EXIT: NO CONDITIONS 

******TWr**ifr>Vfr>Wr && ft - ft ■ A-& ft:ft^^fr^rfr*^1^*^^**^^^t*^WnW^H^^^^H^fr 

WRITE LDB COUNT, U 
BNE WR.MULTI if mult I -character sequence 
STA CHAR.U single character 
CMFA #' is It control character? 
BHS WR.CHAR no 
CMFA #S1E S1E or S1F? 
BHS WR.ESC yes 
CHFA #$0F S(JF - SID? 
BHS READ no graphics codes permitted 
CMFA #C$BELL 
BNE WR.CHAR not bell 
JMP [CC3BELL] will RTS from there 

TO. CHAR LDD #$130*CO80FLG+3 write single character 
COJMF LEAX JMPADR.U 

LDX A.X get comodule execution address 

BEQ NF.ERR if not there 

IDA CHAR.U single character 

JMP £,X jump to comodule write 

WR.ESC BEQ TERM ignore S1E 
LEAX WR.CHAR, PC jump address 
LDB #1 prepare for escape code 
STX WULTIADR.U 
STB COUNT, U 

* TERM ENTRY: U - ADR. OF DEVICE MEMORY AREA 

* EXIT; NO CONDITIONS 

TERM CLRB no error 
RTS 

WR.MULTI CMPB #2 need another? 

BEQ WR.M1 yes 

STA MULCHAR1,U stash character 

CLR COUNT, U no more needed 

JMP [MULTIADR.U] do multi character sequence 
WR.M1 STA MULCHAR2.U stash character 

DEC COUNT, U one more needed 

CLRB 

RTS 

* GETSTA ENTRY: U - ADR. OF DEVICE MEMORY 



EXIT 



Y - ADR OF PATH DESCRIPTOR 

A - STATUS CODE 

CONDITIONS DEPEND ON STATUS CODE 



r*-ft-A-*-£--fr*vW^Wf*Vrfr#-A-;rfr 



*** Only screen size call supported here 

GETSTA STA CHAR.U stash status code 
LDX PD.RCS.Y caller's stack 
CMPA #SS.SCSIZ Is it get screen size? 
BEQ SCRSIZ yes, do It 
CMFA #$92 monitor type call? 
BNE GS.JMP no, jump to comodule 
CLR RSX.X return monochrome code in X 
CLR RSX+l.X 
RTS 

SCRSIZ CLRA 
LDB ROWCOL.U 

STD R$X,X no. columns In X reg, 
LDB ROWCOL+l.U 

STD RSY.X no. rows in Y reg. 
CLRB no error 
RTS 

GS.JMF LDD #?lpJ3*CQ30FLC+6 flag comodule getstatus jump 
BRA COJMF do it 

****** *********** * /? ! , ■ &"* ■ * A ■ ^ ^ h ■ ^ ■ M - JrM - JrWl rtrlr^ * - * 4r ^ - *M r^r!r^r>r 

* SETSTA ENTRY; U - ADR. OF DEVICE MEMORY 

* Y - ADR OF PATH DESCRIPTOR 

* A - STATUS CODE 

* EXIT: CONDITIONS DEPEND ON STATUS CODE 

SETSTA STA CHAR,U stash status code 
CMFA #SS.COMST set baud, etc.? 
BEQ TERM yes, ignore It 

CMFA #$29 undocumented status code - window stuff 
BEQ TERM Ignore it 

LDD p*$100*CO80FLG+9 flag comodule set status jump 
BRA COJMF do it - will be $D0 error 

fritttift-fr^V^W^^^^^Vrt'fttAr^****^^***^*****^ 

NF.ERR COMB set carry 
LDB #$DD module not found 
RTS 

EMOD 
WPSIZ EQU * module size 

END 



Listing 3: up.dd 



irtrt'rfcir-trfftt }Wr Vf -.'riWc it ***TWr*"& & L .'.-^^frVf>Wf>W? ^r *Vf* *****}V}V°,Wf *Vf 



Device descriptor for Wordpak 
For use with Level II OS -9 

Copyright 19B7 by Dennis Skala 
all rights reserved 



***ift-ft-ft-A-A-i!nAr*Vf*^c&T^Wf^^WoWrte*v^**-aWr* 

NAM Wp 

TTL Level II device descriptor for Wordpak 

IFP1 

USE /DJJ/DEFS/OS9DEFS 

USE /DJJ/DEFS/SCFDEFS 

ENDG 

* Note - USE /D0/DEFS/QS9DEFS AND 

* USE /D0/DEFS/SGFDEFS STATEMENTS ARE 

* INCLUDED BETWEEN IFP1 & ENDC 



MOD WPSIZ , WFNAM, TYFE .REVS , FMAN . DEVDRV 
TYPE SET DEVIC+OBJCT 
REVS SET REENT-fl 

FCB UPDAT. mode byte - read will be error 

FCB ${J7 hi address byte 

FDB SFF76 device address 

FCB WFNAM-*-l inltializtion table size 

* Initialization table 



device class - SCF 
upper & lower case 
erase on backspace 
backspace over line 
echo on 

auto line feed on 
end of line null count 
pause enabled 
lines per page 
backspace character 
delete line character 
end-of -record character 



FCB 


W 


FCB 


m 


FCB 


$01 


FCB 


m 


FCB 


531 


FCB 


$01 


FCB 


m 


FCB 


501 


FCB 


$18 


FCB 


$08 


FCB 


SIS 


FCB 


$0D 
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FCB SIB end-of-file character 

FCB $JJ4 reprint line character 

FCB $01 duplicate last line character 

FCB 517 pause character 

FCB $03 interrupt character 

FCB 505 quit character 

FCB 508 backspace echo character 

FCB $J?7 line overflow (bell) character 

FCB 502 initialization value (parity, type) 

FCB 500 baud rate (unused) 

FDB WFNAM attached device name offset 

FCB $00 xon unused 

FCB 5?0 xoff unused 

FCB 550 no , columns for display 

FCB 518 no. rows for display 



FCB 500 window number unused 
FCB $00 rest is invalid 

FDB $00 6 empty bytes for 
FDB 500 window parameters 
FDB $00 

WFNAM FCS /Wp/ device name 
EDITION FCB 1 

FMAN FCS /SCF/ file manager 
DEVDRV FCS /WPDRV/ device driver 

EMOE 
WFSIZ EQU * module size 
END 



Listing 4: wecho . dd 



* 



■Vc™>Wc->WfVnW«VVr&yj->Wf*nWc 



Device descriptor for Wecho 
a term device which echos to /wp 

For use with Level II OS-9 

Copyright 19B7 by Dennis Skala 
all rights reserved 



* 



iH<*4-******ft*>Wri 



:c-;.-;\--\- -.t-.v-r.- :,-i'nhH(* 



NAM Wecho 

TTL Level II device descriptor for window device which echos to /wp 

IFF1 

USE /D0/DEFS/QS9DEFS 

USE /D0/DEFS/SCFDEFS 

ENDC 



FCB S0D window number - S0D 

FCB 501 rest is valid - use as defaults 

FCB $02 window type 2-30 col text 

FCB $00 X start 

FCB $00 Y start 

FCB 501 foreground palette 

FCB 500 background palette 

FCB $00 border palette 

TERMNAM FCS /Wecho/ this device ' s name 

EDITION FCB 1 

FMAN FCS /SCF/ file manager 

DEVDRV FCS /cc3io/ device driver 

W?NAM FCS /Up/ echo device is wordpak 

EMOD 
TERMS IZ EQU * module size 



* Note - USE /D0/DEFS/OS9DEFS AND 

* USE /D0/DEFS/SCFDEFS STATEMENTS ARE 

* INCLUDED BETWEEN IFP1 S ENDC 

MOD TERMS 12 . TERMNAM , TYPE , REVS , FMAN , DEVDRV 
TYPE SET DEVIC+OBJCT 
REVS SET REENT+1 

FCB UFDAT. mode byte - read + write access 

FCB $07 hi address byte 

FDB $FFAD device address matches window number 

FCB TERMNAM-*-l initialization table size 

* Initialization table 

FCB $00 device class - SCF 

FCB $00 upper & lower case 

FCB $01 erase on backspace 

FCB $00 backspace over line 

FCB $01 echo on 

FCB 501 auto line feed on 

FCB S00 end of line null count 

FCB $01 pause enabled 

FCB $10 lines per page 

FCB 503 backspace character 

FCB 51B delete line character 

FCB $0D end-of-record character 

FCB $1B end-of-file character 

FCB 504 reprint line character 

FCB 501 duplicate last line character 

FCB 517 pause character 

FCB $03 interrupt character 

FCB $05 quit character 

FCB $08 backspace echo character 

FCB $07 line overflow (bell) character 

FCB 580 initialization value (parity, type) 

FCB 500 baud rate (unused) 

FDB WFNAM attached device name offset 

FCB $00 xon unused 

FCB 500 xoff unused 

FCB $50 no. columns for display 

FCB $18 no. rows for display 




—Dual Program Specials— 

• TIME/MONEY £ 39.95 

. ADDITION/SUBTRACTION S39.95 

• MULTIPLICATION/ 

BEAT THE COMPUTER _1 .95 

supports C0C0 1 2, & 3 
specify cass/ disk/ Network II 
school P.O.s welcome 
add _.00 shipping and handling 
Network orders add $10.00 per disk 
Write for Free Catalog 

_____ = - CTBHRNETICS —g-j-*.jrh. 



-__ . CYBURHETICS 



6% 



5 4 



5705 CHESSWOOD DR. 

KNOXV1L1E. IN 37912 

615-688-11845 
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Hands-On Hershey 



By William Barden, Jr. 
Rainbow Contributing Editor 



Besides this column in RAINBOW, I write a regular 
column for rainbow's sister publication, PCM, The 
Personal Computer Magazine for Tandy Computer 
Users. Believe it or not, Tandy MS-DOS system owners are 
not bad people. Thanks to their efforts, you're about to 
receive a gift — as a matter of fact, 1377 gifts. . . . 

Let me explain. Back in the December 1987 and January 
1988 PCM columns, 1 described a font utility and font driver 
program that worked in conjunction with a public domain 
font set called the Hershey font. 

A font is just a collection of character definitions, such as 
the ones displayed on the CoCo screen for the alphabet, digits 
and special characters. As you probably know, there's quite 
a variation in fonts, ranging from characters that are drawn 
with straight line segments to very ornate characters, drawn 
with serifs and gingerbread. 

The Hershey Project 

The Hershey font is a digitization of all kinds of characters 
in several different fonts — plain vanilla, fancy. Old English, 
German, Russian and Greek. Hershey also takes in special 
symbols such as music, mathematical and cartographic (map) 
symbols. Typical characters in the Hershey set are shown in 
figures 1 and 2, actual photographs of a CoCo 3 screen in 
high resolution (640-by-l92) mode. 

The Hershey characters were created by Dr. Allen V. 
Hershey, of the U.S. Naval Weapons Laboratory, in the late 
1960s. Unlike typical computer characters, which are bit- 
mapped, the Hershey characters were designed for vector 
devices such as COM (Computer Output on Microfilm) and 
plotters. Figure 3 shows the difference between a bit-mapped 
character used on the CoCo 3 and the corresponding Hershey 
character. 

The beauty of the Hershey characters is lhat they can be 
drawn on the CoCo and PC-compatible systems by using the 
BASIC DRAW command (which draws a line segment between 
any two points on the screen) rather than by setting a matrix 

Bill Barden has written 27 books and over 100 magazine 
articles on various computer topics. His 20 years ' experience 
in the industry covers a wide background: programming, 
systems analysis and managing projects for "computers 
ranging from mainframes to micros. 
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Figure 2 



of bits on and off. Since DRAW involves a line between two 
points, scaling can easily be done — characters can be made 
larger or smaller without the "blockiness" that results from 
expanding a bit-mapped character (see Figure 4). 

Although it's possible to buy a mainframe magnetic tape 
in ASCII or BCD format that provides the characters, I 
suggested to the readers of PCM lhat they might like to help 
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Figure 3: Bit Mapped vs. Hershey Characters 
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Figure 4: Enlarged Bit-Mapped vs. Hershey Characters 



me create a database of characters from the printed character 
definitions I had. It was no easy task — there were approx- 
imately 100,000 bytes worth of data to be entered, all precisely 
so. The response was overwhelming. 1 had 58 volunteers the 
first month, offering from several hours to unlimited amounts 
of time. 



Because of the number of volunteers, I was able to allocate 
a few hours' worth of work to several dozen readers. The 
result was a database of more than 100,000 bytes defining 
all 1,377 Hershey characters. The database can be used on 
MS-DOS systems, on the CoCo 1 , 2 and 3, and on any system 
with a vector DRAW capability. 
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Thanks to the PCM readers, this database exists now in 
CoCo-friendly form. 1 had to modify the original programs 
for the CoCo, which took some additional work on my part. 
But this resulted in two programs that are better than the MS- 
DOS versions. I'm presenting them here, and I'll also tell you 
how to obtain your copy of the Hershey database. 

With the Hershey database and programs, you can include 
alphabetic characters, digits and special characters in any size 
on your graphics screens. Proportional spacing, where 
narrower characters are allocated less width, is also provided. 
About the only negative aspect of the character set is that 
the characters do take some time to be drawn on the screen 

— typically seconds per character in low-speed mode. (For 
CoCo 3 users, this time can be halved in high-speed mode. 
Perhaps I can provide a fast assembly language or BASIC09 
driver in the future, if there's enough interest.) 

The Hershey Utility Program 

Hershey Viiliiy, shown in Listing 1, allows you to enter 
Hershey characters or to define your own vector characters. 
Once defined, the characters can be dumped to one or many 
files for use with the driver program, described further on. 
The utility program is designed for a CoCo 1, 2 or 3 disk 
system with Extended BASIC. As the program runs in 32- 
character mode, a full-width screen is not necessary. 

The menu for Hershey Utility is as follows: 

Hershey Font Utility 

1. Read Characters from Disk 

2. Display Character 

3. Define New Character 

4. Store Characters on Disk 

5. List Characters in Memory 

6. Initialize Hershey File! 
Selection (1-6):? 

Let's suppose that the Hershey font database didn't exist 

— you could use Hershey Utility to create it! 

Defining Characters 

For you aspiring font engineers, entering a 3 for "Define 
New Character" takes you into the character definition mode. 
The first prompt is: 

INPUT B:? 

Hershey characters are assigned numbers from 1 through 
3,926. The program, however, accepts values from 1 through 
32,639. Suppose we want to enter a Hershey straight-line l A', 
Character Number 1 — we enter a 1 for the Hershey number 
and are greeted by the next prompt: 

INPUT X,V VALUES:? 

Hershey values are based on a matrix of square points 128 
units wide by 128 units high. Some characters use fewer 
points than others, however. A Hershey 'A', a small-formal, 
straight-line character, is defined in the Hershey book of 
values as follows: 



1 :-5, 5:0, 
-64, -64 



5: -4, 4:-64, 0: 0, -5: 4, 4:-64, 0: -2, I: 2, I: 
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-5 is five units to the left of the center line, and the 5 is five 
units to the right of the center line. The remaining pairs of 
numbers are the (x,y) coordinates of the points defining the 
character. Figure 5 shows the definition of the 'A' on the 
matrix of points. 

The (-64, 0) pair is a special case. It says, "Move to the 
next (x,y) coordinate without drawing a line." This is 
necessary to draw character segments that are not connected 
to a previous segment. The (-64, -64) pair is a terminator, 
which marks the end of the data for the character. A 
terminator is needed because all the characters are of different 
lengths — simple characters may take only 10 points, but 
complex, elaborate characters take as many as 250 points! 

The entire dialog for entering the 'A' is shown below: 



input X, 


Y Values:? -5,5 


Input X, 


Y Values:? 0,-5 


Input X, 


Y Values:? -4,4 


Input X, 


Y Values:? -64,0 


Input X, 


Y Values:? 0,-5 


Input X, 


Y Values:? 4,4 


Input X, 


Y Values:? -64,0 


Input X, 


Y Values:? -2,1 


Input X, 


Y Values:? 2,1 


Input X, 


Y Values:? -64,-64 



The first digit is the number of the character. The next two 
digits are the width of the character in the .v position. The 
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When the terminating value is entered, the program 
switches to a 256-by-I92 graphics mode screen and draws the 
character. Pressing any key brings you back to the menu. 

This same process is repeated for other characters in the 
Hershey (or your own) set. If an error is made and the 
character isn't drawn properly, you can re-enter the character. 
The program will always take the most recently entered 
character as the definition of the character. Characters do not 
have to be entered in any sequential order. 



Listing Characters in Memory 

You can list the currently entered characters in memory by 
selecting Menu Item 5. The program lists all characters in 
the order they were entered. Here is a typical listing: 

551 552 553 554 555 55G 

557 55B 559 5G0 5G1 5G2 
1 2 3 3 5G1 

Note that there are two repeats (3 and 561) and that the 
characters are not completely in order. 

Displaying Any Character 

You can display any character in memory by selecting 
Menu Item 2. 

When prompted, input the Hershey number, and you'll see 
the character displayed on a graphics screen. Press any key 
to get back to the menu. 

Creating a New File 

Once you have characters defined, you can create a 
Hershey file containing the characters. Selecting Menu item 
6 initializes a file, and you'll be met with these prompts: 

File Name:'? SCRIPT' 

V to Continue, N to Restart: 

Input Start, End8:? 551, 57G 

The filename above is SCRIPT'' {the / character avoids the 
extension /DRT, which BASIC automatically tacks on if the 
• is not included — forget the / if you want to create a file 



with a •DAT extension). The character numbers (Start, End) 
in the file are 551 through 576 inclusive (551 and 576 are 
included). The numbers from 551 through 576 do not have 
to exist — this is only a range of character numbers that will 
be included in the file. Other character numbers will be 
ignored and not sent to the output file. 

You can create one huge file called HERSHEY/ if you want, 
but it's probably better to create a variety of smaller files 
designated by the types of characters in the file. The SCRIPT/ 
file here includes uppercase script characters, for example. 
You can create one or many files from the same set of 
characters in memory. 

As the file is created, all characters in memory are sorted 
by Hershey number and then output to the file. Duplicate 
characters are deleted, with the program sending the most 
recent character definition to the file. If you do a "list" after 
creating the file, you'll see an ordered listing of the numbers 
with duplicates deleted — for example: 

1 2 3 551 552 553 
554 555 55G 557 558 559 
5G0 5S1 5G2 

Reading Additional Characters From Disk 

Once one or more files have been created, you can reload 
the file at any time. After creating SCRIPT/, for example, you 
could reload the characters at another session by selecting 
Menu Item 1. The "read characters" function reads in all or 
a portion of characters from a named disk file. The read 
merges the data from the disk file with any characters already 
in memory. Suppose you had defined the characters 65 1 , 652, 
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653 and 654. Reading in SCRIPT' might result in this 
dialogue: 

File Name:'' SCRIPT' 

Input Start, EndB:? 1,10300 

The resulting list of characters after reading in SCRIPT' 
would then be as follows: 

G51 SS2 SS3 ES4 551 
552 553 554 555 . . . . 

The range of 1 to 10,000, by the way, was just a convenient 
way of saying "give me all the characters in the file," assuming 
that no character number is greater than 10,000. 

Merging Characters in Memory With Existing Data on Disk 

Menu Option 4 lets you merge the current characters in 
memory with characters in an existing file. It operates much 
like Menu Item 6, Initialize File, except that the specified 
range of characters in memory is merged in sequence in the 
characters of an existing file. If the character already exists 
in the disk file and it also is present in memory, it replaces 
the character in the disk file. This menu option can be used 
to modify a character on disk or simply to merge in new 
characters. 

If You Never Want to Define Characters 

Maybe you don't want to define any characters. In that 
case, simply use the existing Hershey characters, which you 
can get from me. Hershey Utility, though, still comes in handy 
for breaking up the huge Hershey database into smaller files, 
which can then be loaded in by the program Hershey Font 
Driver, described below. Bear in mind, however, that with 
a little bit of plotting, you can define your own characters 
and conveniently save them in a file. 

Bells and Whistles 

Hershey Utility was designed primarily for entering 
Hershey character definitions. There are some embellish- 
ments that could make it a more usable program. Some 
Hershey volunteers complained that the program had no 
editing capability — if you enter an invalid 240th data pair, 
you're going to have to repeat the entire entry. That is a 
drawback, but perhaps it can be corrected. 

Another problem is that the entire Hershey database 
cannot be loaded into memory. As a matter of fact, not very 
many characters can be loaded into the CoCo before it runs 
out of memory; this is more of a handicap imposed by 
Extended BASIC. An average Hershey character is 70 bytes 
long — 100 characters require 7,000 bytes of memory, a large 
chunk in a system with only about 23 K of free memory to 
start with. However, working with smaller file sizes over- 
comes this handicap. With the merge capability (Store 
Characters), the disk file can be up to the limits of the disk 
— characters can be merged into a master file in small 
increments. Accessing the Hershey database is no problem, 
as you'll see in the next description. 

The Hershey Font Driver 

Hershey Font Driver is an Extended BASIC program that 
will work with a CoCo 1, 2or 3. Once a database of characters 
is established, Hershey Font Driver can access them and 
display them on the screen. Assuming that you have created 
a dozen files or so with the Hershey Utility program, any of 
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the 1,377 characters can be accessed within seconds and 
loaded into memory, at which time the current character set 
is available for screen display. 

Any groups of characters can be mixed together in 
memory. Hershey characters (or your own characters or 
symbols) can be equated to ASCII characters for easy 
reference. For example, printing "ABCDEF" can cause 
ABCDEF to appear as script, Old English or Greek 
characters, depending on how you've set up the correspond- 
ence between the Hershey and ASCII codes. 

Characters can be programmed in different sizes, from 
pinpoint size to a character that fills the screen. Hershey 
characters, however, work best when they are larger than 
standard screen characters — small characters lose resolu- 
tion. 

Hershey Font Driver, shown in Listing 2, is set up as a 
subroutine with line numbering from 10000 on up. The 
comment lines at the beginning of the program can be deleted 
to save memory. Hershey Font Driver is called from your own 
BASIC program with string ZflS set equal to characters you 
want displayed and with Font Driver subcommands; Font 
Driver subcommands are preceded by %% — two percent signs 
— and ended by a semicolon. There are eight subcommands: 



&2;Fname; 
IXSn.mj 



SSXWn; 

3S3SNh,a,m; 






Initializes driver 

Sets the Hershey font filename to "name" 

Sets scale factor for the characters 

Moves an imaginary graphics cursor to the 

(x,y) position corresponding to the graphics 

mode in force 

Sets the character width or proportional 

spacing 

Reads Hershey characters from file "name" 

Equates the next m Hershey characters to the 

next m ASCII codes 

Toggles the control code flag 



To illustrate a typical sequence of commands, look at the 
"call" to the Hershey Font Driver below: 

100 CLEAR 4000 

110 DIM E(200], CS(100), RX[255) 

120 PF10DE 4,1 

130 SCREEN 1,0 

140 PCL5 

150 (your graphics routines here) 

1S0 ZFI$ = 

170 GuSUB 10000 

1B0 . . . 

Initialization 

Before a call can be made to Hershey Font Driver, some 
action must be taken in the calling program. CLERR allocates 
additional string space. The amount required depends on the 
size of your program, the amount of string processing your 
program does, and the amount of free memory. Some 
experimentation is called for here. 

Three arrays are used by Font Driver. Array E holds two 
entries for each Hershey character. If you'll be using 100 
characters, for example, use DIM E ( 280). The C% array is the 
string array that holds each Hershey character definition. Use 
CI(100) to hold up to 100 Hershey characters in memory. 
The RX array equates 256 ASCII codes to a Hershey character 
number and is fixed by DIM RX(255), 

Of course, the screen must be set to the proper graphics 



mode with a SCREEN and PMGDE. (If you're using a CoCo 2 
and want to do SCREEN displays, use that setup, but see the 
note farther on — all HDRflWs must be changed to DRflWs. 

You can call Hershey Font Driver at any time — before, 
during or after your own graphics displays. Each call is made 
with 2RS set to a string of Hershey subcommands intermixed 
with characters. 

Subcommands to Call the Driver 

The first subcommand in the string should be a %Xl to 
initialize the arrays and do general setup within Font Driver. 
%%l can be used at any time, however, to "wipe the slate 
clean" and provide additional room in memory. Here is an 
example of the subcommand used in a program line: 



1G0 ZflS 



-%%l: 



The next typical subcommand is a %%F NAME command. 
This simply sets the current filename to the name you've 
specified. No read is done at this point. The filename can be 
changed whenever you like, to read in characters from 
different font files. You might have Greek letters in a file 
called GREEK', for example, and German in a file called 
GERMAN'. Don't forget to add the slash after the name if the 
file does not have the extension 'DAT. This subcommand 
must be done before an actual read; otherwise, the default 
filename of " " (null string) will cause an error. It would be 
used in a program as follows: 

1G0ZAS = "SSSSI;S!3!FSCRIPT'; . . . 



The next subcommand might be a read command. The %%9. 
command reads in characters n through m from the current 
file. Any range of values can be read in from the current file. 
Generally, just read in whatever characters you will be using 
to save space. Characters read in are appended to any 
previous characters — the more reads that are done, the 
larger the list of characters will grow. Purge the list by issuing 
a %%l subcommand at any time. 

One important caution: When using more than one read 
command with a single file {a typical situation), order the read 
subcommands by character number, if you do this, the reads 
will be sequential — the file is kept open and the characters 
will be read in one pass. If the reads are not in sequence by 
character number, the program will search from the 
beginning of the file for each read. In our ever-growing 
sample program line, the %%R subcommand would be used 
like this: 



1G0 ZAS = 
S7S; . . . 



'%%!-, ^^FSCRIPT' ; SS3!R551 , 57G ; XXRGS1 , 



The above subcommand reads in characters 551 through 576 
(uppercase script), followed by characters 651 through 676 
(lowercase script) from the Hershey database. 

The next subcommand, %%Hh , a , m, ; , typically is an equate 
command. The N subcommand equates a set of Hershey 
numbers to ASCII codes. ASCII codes run from to 31 
(control characters), from 32 to 127 (digits, uppercase and 
lowercase letters, and special characters), and from 128 
through 255 (non-standard characters not in the original 
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ASCII set). Suppose you want to equate the Hershey 
uppercase script characters at 551 through 576 to ASCII 
characters A through Z. The ASCII characters A through 
Z are codes 65 through 96. This subcommand would do the 
trick: 

160 ZRS = ~**I;FSCRIPT/;S(SiR551,57G;SS3;N551 t 

DJ .4 dD I m m a 

The N subcommand can be used at any time to change the 
equivalences for ASCII codes. The advantage of equating 
oilier fonts to ASCII A through Z is that standard characters 
can be used in (and printed from) ZP.S. Otherwise, ZA$ might 
have to be made up of CHRS functions — CHR$(3) 
+CHR$(17)+CHR$(5) . . . ". Note that the N subcommand 
works with a block of m characters. Sometimes a single 
character at a time must be equated, for example: 



1000 ZflS 



S*NG99,32,1; . 



The above line equates a Hershey blank 699 to an ASCII 
space, Code 32. Also note that no characters can be displayed 
with Font Driver unless they are defined by the N subcom- 
mand. The Font Driver does not display normal screen 
characters (use the HPRINT command for this in CoCo 3 
Extended BASIC). 

The SSSsC subcommand "toggles" the control code flag in 
Font Driver. If the flag is set, a carriage return and line feed 
(ASCII characters 13 and 10) will cause the proper action 
on the screen. If the flag is not set, ASCII carriage return 
and line feed codes will be used in finding an equated Hershey 
character, just like the other ASCII codes. Alternate %%£. 
subcommands turn the flag on and off, Use this command 
for automatic line spacing, if desired. 

The size of the characters displayed is determined by two 
things, the size of the character on digitization (Hershey 
worked with three basic sizes) and the scale factor. The 
%%Sn , m; subcommand sets the horizontal (n) and vertical (rn) 
scale factors. A scale factor of I produces characters from 
nine to 21 pixels high in 256-by- 192 mode, depending on the 
font. Setting n-m will provide a character that looks like the 
original digitization in 256-by- 1 92 mode. {In HSCREEN mode, 
n must be 2.4 times greater than m for a 1:1 character.) 
Increasing n produces a taller character. Increasing m 
produces a more squat character. Fractions can be used here. 
Use the sss subcommand as follows: 

1G0 Zft$ = "Si*I;S!*FSCRIPT^;aS!RS51,57G;S!S!N5Sl, 
G5,2G;SsS!S2.4,2; . . . 

This string sets the x scale factor to 2.4 and the y scale factor 
to 2. 

The SsSeWn; subcommand has two width modes for Font 
Driver, If 3S3SU939 ; is specified, Font Driver will use the width 
of the character from the width bytes. This produces 
proportional spacing, where each character is allocated a 
different width. Using another width value spaces over a fixed 
amount of width for every character — the value is the width 
in pixels. Here is an example of the subcommand that sets 
proportional spacing used within a program line: 

1G0 ZflS = "3!SSI;S!S;FSCRIPTV;&asR551,57G;3!S!N551, 
65,2G;!U52.4,2;3;3;W999; . . . 

The SsSsflx.y; subcommand positions an invisible cursor 
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to an x,y position. This subcommand is used to find the 
starting position prior to displaying a new group of 
characters. The cursor is referenced to the center point of each 
character, so enough space must be provided on both its left 
and right sides. A BASIC error may result if the DRAM 
command draws off the screen. The M subcommand can be 
used at any time, and may appear like this: 

1G0 Zfi$ - "S!%I;*SiFSCRIPT^;S!SSR551,57G;S«*N551, 
E5, 26:3:352 .4, 2 ;Ss8sW999;3i;SSr132,lG; . - - 

The above string moves the cursor to x=32, y=I6. 

"Normal" Characters 

Screen printing is done by either CHRS codes or normal 
ASCII characters that have been equated to corresponding 
Hershey numbers. To print in uppercase script, for example, 
the string could be: 

1G0 ZRS = ""dXl;%°AF5CRlPl/;X^RS51,57G;^%RG33, 
G93: SXN551 , G5, 2G j 3^HG99 , 32 , 1 ; SSXS2 . 4 , 2 ; %%U3 
99;S!S;M32,16;"THIS IS UC SCRIPT WITH BLANKS" 

The sequence above will be printed starting at (32,32), the 
center point of T, with proportional spacing and in script. 

Once all the definitions have been made, display of 
characters becomes much easier. Just use normal text and 
change the scaling, spacing or position when necessary. Don't 
hesitate to include your own strings as "macro" subcom- 
mands, either. If uppercase script will always be scaled at 2.4 
and 2 with proportional spacing and contained in a file called 
SCRIPT/, you can do something like this: 

100 UCS = "XSFSCRIPT';»JKR551,5?G;SXN551, 

G5 , 2G ; 3;3:s2 . 4 ,2 ; xajwegg" 

G00 ZP$ = UCS: G05UB 10000 

As a further example of the use of subcommands, see the 
code in Listing 3 that prints the characters in Figure 1. 

HSCREEN Hershey Font Driver Program 

The Hershey Font Driver program for CoCo 2 users is 
identical to the program in Listing 2 except that all HDRAWs 
must be changed to DRflWs, and the SCREEN must be set by 
the calling program. 

How to Get the Hershey Font 

Because the Hershey font is in the public domain, and 
because the efforts of our MS-DOS comrades created the 
large database, the Hershey font database is available free 
to certifiable CoCo freaks. To get your copy, send a statement 
by your spouse or significant other indicating that you spend 
more time with the CoCo than with them. Also send me a 
formatted 35-track, single-sided disk and include a self- 
addressed envelope large enough to hold the disk. Stamp the 
envelope with at least $ i .07 worth of stamps (or more, if you 
include heavy disk protection such as cardboard or steel). 

In keeping with the spirit of this project, you may not resell 
the programs, but may distribute them free as often as you 
wish, providing my copyright is maintained. I'll also try to 
get the database and programs on Delphi. Write to William 
Bard en, Jr., Post Office Box 3568, Mission Viejo, CA 92692. 

The Hershey Font Project has been an exciting one for me 
because of the enthusiastic response from readers. This 
started off as a CoCo project, and I'm glad to see that it finally 



wound up as one. I'm certain that ifit had been CoCo readers 
solicited for the volunteer work, the response would have 
been just as great. This project shows what can be accom- 



plished by a group of unselfish computer users. Perhaps the 
next project of this type could be a CoCo project. Any 
volunteers? D 



VI 300 

■J—l 490 



300 . 
490 . 
700 . 
890 . 
1100 
1230 



..122 1420 21 

.146 1610 220 

.112 1790 24 

..142 1950 48 

..217 2120 86 

.153 END 171 



Listing 1: F0NTUTIL 



110 ' 

12J3 ■ HERSHEY FONT UTILITY. ALLO 

WS HERSHEY CHARACTERS TO BE READ 

FROM 
13,0 ' DISK FILE, DISPLAYED, DEFI 
NED, AND MERGED WITH DISK FILE D 
ATA. 
140 • 
150 ■ VI, J3 12-31-87 COCO 1, 2, 3 

VERSION 
160 ' 

170 ' 

130 * INITIALIZE C$ AND E TABLE 

POINTERS AND ALLOCATE ARRAYS 

190 CLS 

200 CLEAR 5000 

210I=0:J=0 

220 DIM HV( 300 ), C$ ( 300 ), E( 

600 ) 
2 30 PRINT MEM 
240 SCREEN 0,1 
250 ' 

260 ' 

270 ' DISPLAY MENU 

280 CLS 

2 90 PRINT "HERSHEY FONT UTILITY" 

300 PRINT "1. READ CHARACTERS FR 



OM DISK" 

310 PRINT "2. DISPLAY CHARACTER" 

320 PRINT "3. DEFINE NEW CHARACT 

ER" 

330 PRINT "4. STORE CHARACTERS O 

N DISK" 

340 PRINT "5. LIST CHARACTERS IN 

MEMORY" 
350 PRINT "6. INITIALIZE HERSHEY 

FILE1 " 
3 60 ' 
370 ' 

3 80 • MAIN LOOP. INPUT SELECTION 
AND BRANCH OUT. 

390 PRINT "SELECTION (1-6);"; 

400 INPUT RE 

410 IF RE = 5 THEN GOTO 2190 

420 IF RE < 1 OR RE > 6 THEN GOT 

O 390 

430 ON RE GOSUB 460, 710, 1190, 

1660, 2190, 1680 

4 40 GOTO 2 80 
450 ' 

4 60 i =========================== 

470 ■ 

4 80 ■ READ CHARACTERS FROM DISK 

4 90 ' MERGES C$ AND E ARRAYS WIT 

H HERSHEY CHARACTERS FROM DISK F 

ILE. 

500 ' 

510 ' 

520 ' INPUT FILENAME, START, AND 

END RANGE OF HERSHEY CHARACTERS 

AND OPEN 
530 INPUT "FILE NAME:"; F$ 
540 INPUT "INPUT START#, END# : " ; 

SN, EN 
550 OPEN "I", #1, F$ 



DMC "No Halt" Disk Controller 



CoCo 3 ^^^B 




Unleash your CoCo's potential! 

Our new Dual Mode Controller (DMC) implements a new 
'"no halt" mode ol operation so It can read from or write 
to disk al! by itself. The 6B03 is freed to process other 
tasks and respond to interrupts. This Es how QS-9 was 
meant to run] Bui the Radio Shack "hall" mode of 
operation is also retained to maintain full compatibility 
with existing nonOS>9 software. 

Fr«l Disk caching software Included can speed up 
OSS disk accesses 



Did you know? 

. . .that all the older floppy disk controllers for the 
CoCo completely Me up (and even hall) the 6809 pro- 
cesser during disk reads and writes? No wonder 
your keyboard Is constantly 'losing" characters! Or 
that your serial port often gives you garbage. 



T XC<HNOLOOIC< 

2261 East 11th Ave., Vancouver. B.C., Canada V5N 1Z7 



Other DMC features: 

• works with original CoCo, CoCo 2, or CoCo 
(Multi-Pak required) 

• no adjustments — all-dlglial data separator and write 
precompensatlon 

■ gold plated card-edge connectors lor reliability 

• ROM socket takes 24 pin or 28 pin chip; dual DOS capability 

• Radio Shack DOS 1.1 ROM Installed 

■ SK bytes cache memory on board (32K optional) 

• O.R Johnson's SDISK package (specially modilied tor DMC) is 
included at no charge (£30 value) 

• aluminum case 

• fully assembled and tested: 120 day limited warranty 

To ordar: DMC controller with RSDOS 1.1 and SOtSK (specify 

OS-9 Level I or II) £149.50 plus 35 S'H ($12 overseas). Add SIS 
for 32K RAM option. Terms (prices in SUS); check, money 
order, VISA U.S.A. orders shipped via UPS from WA stale. 



(Also ask about our 5T-2900 
6S09 based expandable 
single board computer) 

{604)255 4485 (Pacific Time) 



April 1988 THE RAINBOW 177 



T & D SUBSCRIPTION SOFTWARE CONTINUES ITS 









ISSUE #1, JULY 1982 
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HOn- 
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H 1984 






HALLO: ' 



ISSUE #28. OCTOBER 1984 



ISSUE #34 APRIL 1985 



MAY 1985 



SUPER SAVINGS 

Single Issue $8.00 

2-5 Issues $6.00 ea. 

6-10 Issues $5.00 ea. 

11 or more Issues . $4.50 ea. 

All 67 Issues $185.00 

Purchase 20 or more issues and 










[MasterCard 



■ Every Issue Contains • We send 
10 or More Programs 1st Class 

• Many Machine Language No Charge 
Programs 

• AvailableforCOCOIJIandlll • Personal 
- All Programs Include Checks 

Documentation Welcome! 



RAINBOW 

CERTIFICATION 

SEAL 



BACK ISSUE SALE OF OVER 670 PROGRAMS! 
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ISSUE #56, FEBRUARY 1987 
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T & D Subscription Software 
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CIRCLE ISSUES DESIRED 

9 17 25 33 41 49 57 65 

34 42 

35 43 

36 44 



26 
27 

26 

29 37 

30 38 

31 39 

32 40 
PLEASE CIRCLE 
TAPE Of DISK 



45 
46 
47 
48 



50 58 65 

51 59 67 

52 60 

53 61 

54 62 

55 63 

56 64 



560 ■ 

570 ' 

580 ■ READ AND STORE CHARACTER L 

INES IF WITHIN INPUT RANGE 

590 IF EOF( 1 ) GOTO 680 

600 INPUT#1, C$( I ) 

610 NO = ( ASC{ LEFT$ ( CS ( I ), 

1 ) ) - 128 ) * 128 + 

ASC( MID$( C 
$( I ), 2, 1 ) ) - 128 
620 IF NOT( ( NO >- SN AND NO <= 

EN ) ) THEN 670 
630 E( J ) = NO 
640 E( J + 1 ) = I 
650 J = J + 2 
660 1=1+1 

670 IF NO < EN THEN GOTO 5 90 
680 CLOSE 
690 RETURN 
700 ' 



7 20 ' 

730 ■ DISPLAY CHARACTER FROM MEM 

ORY 

740 ' DISPLAYS A GIVEN HERSHEY C 

HARACTER # IN MEMORY, TH.E LAST C 

HARACTER 

750 ' FOUND IS DISPLAYED IF THER 

E ARE DUPLICATES. CALLED BY DEFI 

NE CHARACTER. 

7 60 ' 

770 i 

780 • INPUT VALID #. IF NOT FOUN 
D, ANOTHER PROMPT GIVEN. ENTERIN 
G TERMINATES. 

790 INPUT "INPUT HERSHEY #:«; NO 
800 IF NO = THEN GOTO 1170 
810 FOR K = J - 2 TO STEP -2 

8 20 IF E( K ) = NO THEN 880 
8 30 NEXT K 

8 40 GOTO 7 90 
850 ' 

860 ■ 

870 ' INITIALIZATION AND MOVE TO 

SCREEN CENTER. 
880 SCREEN 1,0: PMODE 4,1: PCLS 
890 K = E( K + 1 ) 
900 SX = 1.5: SY = 1.5 
910 DRAW "BM128, 96" 
920 X = 128: Y =96 
930 L = 5 
940 ' 
950 i 

9 60 ' START AT FIRST X/Y COORDIN 
ATE, BYPASS WIDTH 

970 IF LEN( C$( K ) ) <= 6 THEN 
GOTO 1170 

980 A = ASC( MIDSC CS ( K ) , L, 1 
) ) - 128 



990 B - ASC( MID$( C$ ( K ) , L + 

1, 1 ) •) - 128 

1000 L = L + 2 

1010 A = A * CSX: B ■ B * SY: A 
= INT( X + A ) : B = INT( Y + B ) 
1020 DRAW "BM" + STR$( A ) + " , " 

+ STR$ ( B ) 
1030 ' 

1040 ' 

1050 ■ GET REMAINING X/Y COORDIN 
ATES AND DRAW LINE SEGMENTS 
1060 A = ASC( MID$( C$( K ) , L, 
1 ) ) - 128 
1070 B = ASC( MID$( C$( K ), L + 

1, 1 )) - 128 
1080 L = L + 2 

1090 IF ( A = -64 ) AND ( B = -6 
4 ) THEN GOTO 1170 
1100 IF NOT( ( A = -64 AND B = 

) ) THEN GOTO 1150 
1110 A = ASC( MID$( C$( K ), L, 
1 ) ) - 128 
1120 B = ASC( MID$( C$( K ), L + 

1, 1 ) ) - 128 
1130 L = L + 2 
1140 A = A * SX: B = B * SY: A = 

INT( X + A ) : B = INT{ Y + B) : 
DRAW "BM" + STR$( A ) + 

"," + STR$( B ) : GOTO 1160 
1150 A = A * SX: B = B * SY: A = 

INT{ X + A ) : B = INT{ Y + B ) : 

DRAW "M" 4- STR$ ( A ) + 

" ," + STR$( B ) 
1160 GOTO 1060 

1170 A$ = INKEY$: IF A$="" THEN 
GOTO 1170 ELSE RETURN 
1180 ' 



1200 ' 

1210 ' DEFINE NEW CHARACTER. 

12 20 ' MAKES C$ ENTRY IN MEMORY, 

STORING HERSHEY CHARACTER AS A 
STRING. FIRST 

1230 ' TWO CHARACTERS OF STRING 
ARE NUMBER, MS/LS; NEXT TWO CHAR 
ACTERS 

1240 ' ARE STANDARD HERSHEY WIDT 
H FROM HERSHEY DEFINITIONS; REMA 
INING 

1250 ' CHARACTERS ARE X/Y PAIRS 
FROM HERSHEY DEFINITIONS. TERMIN 
ATOR IS 

1260 ' -64,-64. WIDTH AND X/Y PA 
IRS ARE STORED IN EXCESS 128 COD 
E. 
1270 ' 

1280 ' 

1290 ' Input Hershey # and initi 
alization 
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■ 

13/20 INPUT "INPUT #:"; NO 


ACTER 


1310 A$ ■ •»" 


1500 E( J ) = NO 


13 20 K = 


1510 E( J + 1 ) = I 


1330 ' 


1520 J = J + 2 
1530 1=1+1 




1350 ' Input width, X/Y pairs, a 


1540 K = J - 2 


nd -64/-64 terminator 


1550 GOTO 880 


13 60 INPUT "INPUT X,Y VALUES:": 


1560 ' 


HV ( K } , HV ( K + 1 ) 


1570 ' ========================== 


13 70 X = HV( K ) : Y = HV ( K + 1 

) 

1380 K = K + 2 




1580 ■ 


1390 IF NOT( X = -64 AND Y = -64 


15 90 ' STORE CHARACTERS ON DISK 


) THEN GOTO 1360 


1600 ■ SORTS C$ ENTRIES BY HERSH 


1400 ■ 


EY #, ELIMINATING DUPLICATE ENTR 




IES IN 




14 20 " CONSTRUCT STRING AND MAKE 


1610 ' MEMORY BY KILLING ALL BUT 


C$ ENTRY 


THE LAST. MERGES MEMORY C$ ENTR 


143J3 CS ( I ) = CHR$( INT( NO / 1 


IES OVER 


28 ) + 128 ) + CHR$( NO - ( INT ( 


1620 ' GIVEN RANGE WITH NAMED FI 


NO / 128 ) ) * 128 + 128 ) 


LE, CREATING NEW NAMED FILE. REP 


1440 FOR L - TO K - 1 


LACES 


1450 C$( I ) - C$( I ) + CHR$( H 


1630 ' EXISTING FILE ENTRIES WIT 


V( L ) + 128 ) 


H NEW DEFINITION FROM MEMORY. 


1460 NEXT L 


1640 ■ 


1470 ' 


"1 £ E C\ t __ ______ 




1480 ' 


1660 INPUT "FILE NAME:"; F$ 


14 90 ' MAKE E TABLE ENTRY, BUMP 


1670 NF = 0: OPEN "I", #1, F$: G 


POINTERS, AND GO TO DISPLAY CHAR 


OTO 1730 
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SEAL, 





EVEN IF YOU DON'T HAVE A 

HARD DISK . 



YOU CAN STILL SUPERCHARGE YOUR COCO 1,2, OR 3 WITH 

RGB-DOS(HD) 

HERE ARE JUST SOME OF THE FEATURES OF RGB-DOS(HD): 

'FULLY COMPATIBLE WITH RS-DOS 

* WILL RUN TWO HARD DISK DRIVES 

* WILL AUTO-EXECUTE ANY PROGRAM 

* FULL SCREEN DIRECTORY DISPLAY 

* ELECTRONIC DISK LABELING 

* IMPROVED "COPY" COMMAND 

* "RUNM" COMMAND FOR M/L PROGRAMS 
' ..AND MUCH MUCH MORE! 

RGB-DOS(HD) COMBINES ALL THESE FEATURES WITH THE 
ABILITY TO RUN ANY SIZE HARD DISK DRIVE IN BASIC! 

DO YOUR COCO A FAVOR... SUPERCHARGE IT WITH RGB-DOS! 

28 PIN ROM WITH USERS MANUAL... $74.95 

ALSO ASK ABOUT OUR PC/XT-TO-COCO KEYBOARD ADAPTER 
AND OUR FULLY SCSI COMPATIBLE HARD DISK INTERFACE 




■I ZV4 
■ ■ . 



294STILLWELLAVE 
KENMORE, NY 14217 



COMPUTER 
SYSTEMS 

(716)876-75 



I 
I 
I 
I 
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1680 INPUT "FILE NAME:"; F$: NF ); K => K + 2: GOTO 1970 

= 1 2000 IF E( K ) <> NO THEN GOTO 2 

1690 PRINT "THIS DESTROYS "; F$ ; 030 

" FILE!" 2010 IF E( K ) < SN THEN PRINT#2 

1700 PRINT M Y TO CONTINUE, N TO , A$ : K - K + 2 : GOTO 1950 ELSE 

RESTART:" IF E ( K ) > EN THEN PRINT* 

1710 A$ = INKEY$: IF A$ = "" THE 2, A$ : GOTO 2090 ELSE PRINT#2, C 

N GOTO 1710 $(E(K+l)):K=K+2: 
1720 IF A$ = "Y" THEN GOTO 1730 GOTO 1950 

ELSE GOTO 280 2020 ' E( K ) > NO 

1730 OPEN "0", #2, "HERSHEYN/" 2030 IF E( K ) < SN THEN PRINT#2 

17 40 INPUT "INPUT START, END#:"; , A$ : GOTO 1950 ELSE IF E( K ) > 

SN, EN EN THEN PRINT#2, A$ 

1750 ' : GOTO 2090 ELSE PRINT#2, A$ : GO 

1760 i T0 195 p 

1770 ' BUBBLE SORT E TABLE AND D 2040 ■ ■ 

ELETE FIRST DUPLICATE ENTRIES 2050 IF ( K = J ) OR ( E ( K ) > 

1780 PRINT "SORTING..." EN ) THEN GOTO 2140 

1790 IF J = 2 THEN GOTO 1930 2060 IF E( K ) >= SN THEN PRINT# 

1800 SWAPF =0 2, C$(E(K+l)):K=K+2: 

1810 FOR L = TO J - 4 STEP 2 GOTO 2050 

1820 IF E( L + 2 ) i < E{ L ) THEN 2070 K = K + 2: GOTO 2050 

Tl = E(L+2):T2 = E(L+3 2080 ' 

): E( L + 2 } = E(L):E( 2090 IF EOF ( 1 ) THEN GOTO 2140 

L+3)=E(L+1):E(L)=T 2100 INPUT#1, A$ : PRINT#2, A$ : G 

1: E( L + 1 ) = T2: SWAPF = 1 OTO 2090 

1830 IF ( E( L + 2 ) ■ E( L ) ) 2110 ' 

AND ( E( L } <> 65535 ) THEN E( 2120 ' 

L ) =65535: Tl = E( L + 2 ): 2130 ' FINAL LEANUP. DELETE OLD 

T2=E(L+3):E(L+2)= MASTER, RENAME NEW MASTER TO "HE 

E(L):E(L+3)=E(L+1); RSHEY". 

E( L ) = Tl: E( L + 1 ) = T 2140 CLOSE 

2: SWAPF = 1 2150 IF NF <> 1 THEN KILL F$ 

18 40 NEXT L 2160 RENAME "HERSHEYN/" TO F$ 
18 50 IF SWAPF = 1 THEN 1800 2170 RETURN 

1860 FOR K = TO J - 2 STEP 2 2180 ' 

1870 IF E( K ) - 65535 THEN J = 2190 '========================== 

18 80 NEXT K =========== 

1900 ' 2200 ■ 

1910 ' MERGE C$ ENTRIES IN MEMOR 2 210 ■ LIST CHARACTERS IN MEMORY 

Y WITH NAMED FILE, REPLACING FIL 2220 ' LIST CURRENT HERSHEY CHAR 

E ACTERS IN MEMORY, INCLUDING DUPL 

1920 ' ENTRIES IF SAME HERSHEY # ICATES . 

IN MEMORY. 2230 ' 

1930 K - 2240 ' 

1940 IF NF = 1 THEN GOTO 2050 2250 CLS 

1950 IF EOF( 1 ) THEN GOTO 2050 22 60 FOR K = TO J - 2 STEP 2 

ELSE IF K = J THEN GOTO 2090 ELS 2270 IF POS ( ) > 20 THEN PRINT 

E C INPUT* 1, A E( K ) ELSE PRINT E( K ); 

$ 2 2 80 NEXT K 

1960 NO = ( ASC( LEFT$( A$, 1 ) 2290 PRINT: PRINT "PRESS ANY KEY 

} - 128 ) * 128 4- ASC( MID$ ( A$ , TO CONTINUE" 

2, 1 ) ) - 128 2300 A$ = INKEY$ : IF A$ = "" THE 

1970 IF K = J THEN PRINT#2, A$ : N GOTO 2300 

GOTO 2090 2310 CLS 

1980 IF E( K ) >= NO THEN GOTO 2 2320 GOTO 270 

000 2330 ' 

19 90 IF E( K )< SN THEN K = K + 2 3 40 '.========================== 

2: GOTO 1980 ELSE IF E ( K ) > E ================================ 

N THEN PRINT#2, A$ : GOTO 20 =========== 

90 ELSE PRINT#2, C$ ( E{ K + 1 ) 
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BULLETIN BOARD 




MATH OH DISK 

Add Fractions $19.95 

Subtract Fractions 19.95 

Multiply Fractions 19.95 

Trigonometry Tutor. 19,95 

Linear Equations 19.95 

Quadratic Equations 19 . 95 

Number Sequences 19 . 95 

Signed Numbers 19.95 

Binary Dice Game 19.95 

Money pack 19.95 

Distance Problems 19.95 

Comparison Shopping 19,95 

Sales & Bargains ....19.95 

Bank Account 19.95 



LANGUAGE ARTS ON DISK 

Beyond Words 1 $19 . 95 

Beyond Words 2 19.95 

Beyond Words 3 19.95 

Vocabulary Builders 1 19.95 

Vocabulary Builders 2 19.95 

Vocabulary Builders 3 19.95 

Cloze Exercises 3, 4, 5, 6, or 7.19.95 

Punctuation Practice 19.95 

Story Details 2-3 or 4-5 19.95 

Drawing Conclusions 3-4 19.95 

Drawing Conclusions 5-6 19.95 

Context Clues Gr. 2-3 19.95 

Context Clues Gr. 4, 5, 6, or 7.19,95 



OTHER SUBJECTS ON DISK 

Explorers & Settlers $19.95 

Famous American Women 19.95 

Street Map Game 19.95 

States & Capitals 19.95 

Know Your States .....19.95 

History Game 19.95 

Chemistry Tutor 24.95 

Science Game 24 . 95 

Color Computer Literacy 19.95 

French Baseball 19.95 

Spanish Baseball 19,95 



GAMES ON DISK 

The Pond $29.95 

The Factory ..29.95 

Teasers By Tobbs 29.95 

Wheel of Fortune.. 19.95 

Wheel (Coco3/RGB) 19.95 

Pegs (Coco3/RGB) 19.95 

Name Flag (Coco3/RGB) .... 19.95 

First Games 24 . 95 

Arrow Games 21.95 

Mr. Cocohead 19.95 

Preschool 1,2, & 3 24.95 



Iv^i^ 



TAKE ADVANTAGE OF MOST DISKS AT TAPE PRICES. 
LIMITED TIME ONLY. GOOD UNTIL APRIL 15,1988 



RAINBOW 

CEHTlFlCArrCUY 



Computenflsland 



(718) 948-2748 Evenings after 7:00 PM EST 

Dept. R.227 Hampton Green, Staten Island, N.Y. 10312 

Send for catalog with complete descriptions. 



CD 



Please add S1 .00 per order for postage. N.Y. residents, ptease add proper tan. FREE set of BINARY DICE, including lull directions, with 
orders of 2 or more items. 



Dealer Inquiries Invited. 



THS-80 Color Computer 



All Payments in U.S. Funds. 





s 








1 


f 


...29 


11190 .. 


..90 


V 


10140 . . 




10960 


250 


11440 


39 


10420 .. 


.247 


11600 . . 


..51 


10580 .. 


...31 


11740 .. 


.215 


10810 .. 


..119 


12000 .. 


.108 


10980 . . 


..166 


END ... 


.226 



Listing 2:HFDRIVER 

10000 '========================= 

10010 ' 

10020 ' HERSHEY FONT DISPLAY. LO 

ADS HERSHEY CHARACTERS FROM A DI 

SK FILE. 

10030 ■ DISPLAYS CHARACTERS AT G 

IVEN LOCATION. SIZE OF CHARACTER 

MAY BE 
10040 ' MODIFIED AS REQUIRED. 
10050 ' VI. 1-1-88 COLOR COMPUT 
ER 1, 2, 3 VERSION 
10060 ' 

10070 ■ 

10080 ' INPUT: ZA$ - CHARACTER S 

TRING TO BE INTERPRETED. 

10090 ' SUBCOMMANDS: %%I; 

INITIALIZE DRIVER - ZERO CHARAC 
TER TABLE 

10100 ' %%FN 

AME; SET DISK FILE NAME 
10110 ' %%SN 

,M; SET SCALE FACTORS TO N HOR, 
M VERTICAL 

10120 ' %%MX 

,Y; POSITION TO GRAPHICS COORDIN 
ATE X,Y 

10130 ' %%WN 

•, SET WIDTH TO N PIXELS OR 999 F 
OR PROPORTIONAL 

10140 ' %%RN 

,M; READ HERSHEY CHARACTERS FROM 

DISK FILE IN 
10150 • R 

ANGE N TO M 

10160 ' %%NH 

,A,M; EQUATE NEXT M HERSHEY CHAR 
ACTERS TO 

10170 * N 

EXT M ASCII CHARACTERS 
10130 ' %%C; 

TOGGLE CONTROL CODE FLAG 
10190 ' (STR 

ING) DISPLAY ALL OTHER CHARACTER 
S IN HERSHEY 

10200 ' F 

ORMAT 

10210 ■ OUTPUT: PARAMETERS CHANG 
ED OR CHARACTERS DISPLAYED ON SC 
REEN UNLESS 



10220 ' ERROR, IN WHICH 

CASE ZE = CHARACTER POSITION OF 
LAST ERROR 
102 30 ■ 

10240 ' 

102 50 ' DATA DICTIONARY 
102 60 • AX() = ASCII ARRAY; -1 I 
F NO CHARACTER DEFINED ELSE POIN 
TS TO E() 

10270 ' C$() - ARRAY OF HERSHEY 
CHARACTERS; UP TO 255 CHARACTERS 
/ENTRY 

10280 ' E() = ARRAY OF HERSHEY # 
POINTERS ; HERSHEY # AND INDEX T 
O C$ 

102 90 ' Zl = NUMERIC VALUE OF SU 
BCOMMAND ARG 1 

10300 * Zl$ - STRING VALUE OF SU 
BCOMMAND ARG 1 

10310 ■ Z2 = NUMERIC VALUE OF SU 
BCOMMAND ARG 2 

103 20 ' Z3 «■ NUMERIC VALUE OF SU 
BCOMMAND ARG 3 

103 30 ' ZA = INPUT TO DISPLAY CH 

ARACTER SUBROUTINE - ASC VALUE O 

F CHARACTER 

10340 ■ ZA$ = STRING TO BE DISPL 

AYED 

10350 ■ ZB = BEGINNING OF DISK C 

HARACTERS ( WORKING ) 

103 60 ■ ZB$ = CURRENT CHARACTER 

(WORKING) 

10370 ' ZC = ENDING OF DISK CHAR 

ACTERS (WORKING) 

10380 ' ZCS = WORKING 

103 90 ■ ZE = ERROR FLAG FOR RETU 
RN; IF NO ERROR OR CP IF ERROR 
10400 ' ZF = WORKING 

10410 ' ZF$ - DISK FILE NAME, DE 
FAULT = »" 

104 20 ' ZG = WORKING 

104 30 • ZI = POINTS TO NEXT (UNU 

SED) ENTRY IN C$ 

104 40 ' ZJ = POINTS TO NEXT (UNU 

SED) ENTRY IN E 

104 50 ■ ZK = WORKING 

10460 ' ZL = WORKING 

10470 ■ ZM = INDEX TO CURRENT CH 

ARACTER IN INPUT STRING 

104 80 ' ZN = § OF ARGUMENTS FROM 
PARSE SUBROUTINE 

10490 ■ ZO = HERSHEY # (WORKING) 

10500 ' ZQ = WORKING 

10510 ' ZS = FUNCTION | FROM PAR 

SE SUBROUTINE 

10520 ' ZU = CURRENT HORIZONTAL 

SCALE FACTOR 

105 30 * ZV = CURRENT VERTICAL SC 
ALE FACTOR 

10540 ' ZW = CURRENT WIDTH IN PI 
XELS OR 999 FOR PROPORTIONAL 
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DISTO 



SUPER PRODUCTS 



INTRODUCES 

THE FANTASTIC _ 
SUPER CONTROLLER JL 

power' be yon d belief 

Radio Shack/Tandy controller compatible. 

Works on all COCOs! 1, 2 or 3, with or without Multi-pak interface. 

One 24/28 pin socket, for 8K ROM, 2764, 27128 or 27256. 

Internal Mini-Expansion-Bus Connector for one DISTO 

Super Adapter board. 

Low Power draw; Within COCO's power requirements. 

Gold Plated edge connectors. 

Under OS-9: 

* Buffered Read/Write sector achieved without halting the CPU. 

* Continual use of keyboard even while Reading or Writing to disk. 

* System's Clock no longer looses time during Read & Write. 
■ NMI is blocked and transferred to IRQ in software for low CPU overhead. 

* Completely Interrupt driven for fast and smooth Multi-Tasking operations. 

* Drivers (written by Keven Darling) for Level 1 and 2. 




Suggested Retail Price 



$150 



Introductory Price $130 



DI5TD SUPER CONTROLLER I $99,95 



□ISTD 



SUPER ADD-ONS 



m 





A superb controller. Along with 

the included C-DOS, plug-in 
three more software selectable 
2764 or 271 28 EPROMs burned 

to your liking. 

The internal Mini Expansion Bus 
lets you add some incredible 
features to the controller. Disto 
Super Add-Ons were designed 
to fit neatly inside the Super 
Controller case. 



□i5~ra 

SUPER RAM 



3 



ZeroK $29.95 



Full 5 12K 89.95 




Now is the time to upgrade your 
COCO 3 to 51 2K of memory. 

Available with or without mem- 
ory chips, the Super Ram 3 
board is easily installed inside 
the COCO. It is fully compatible 
with OS-9 Level 2 and is deliv- 
ered with a soflware package 
(for BASIC) that includes: a 
printer spooler, a ramdisk, a 
memory test and an install/con- 
figure program (or your system. 



REAL TIME CLOCK AND PARALLEL PRINTER INTERFACE 
Have the Real Time, date and year displayed on your screen al a simple 
command. $39,95 

MINI EPROM PROGRAMMER 

A low cost EPROM programmer that attaches directly to your Disto 

Super Controller to program those often used utilities. $54.95 

HARD DISK INTERFACE 

A hard disk interface fully compatible with S.A.S. I. controller. Fits inside 

the Super Controllers, Ramdisk or MEB adapter. OS-9 Drivers are 
included. $49.95 

SUPER RAMDISK 5 12K 

Imagine having access to 51 2K of virtual disk memory in close to no time. 

Upgradable to One Megabyte $1 1 9.95 

MEB ADAPTER 

A Stand-Alone Mini-Expansion-Bus in which you can plug any other 

DISTO Adapter directly in a Multi-pak without the need for a Super Controller 
or Ramdisk $24.95 



SEND FOR FREE 1988 WINTER CATALOG 



CRC COMPUTERS inc. 

10802 Lajeunesse, Montreal, Quebec, Canada, H3L 2E8 

1-514-383-5293 

We accept phone orders. 
Call for Canadian prices. 



MASTER CARD 
AND VISA 
ACCEPTED 



Include S&H of $4 or $B if order exceeds $75, 



10550 ' ZX = CURRENT X POSITION 


10940 


i _____________ 




10560 ' ZY = CURRENT Y POSITION 


10950 


1 "%%WN; M SUBCOMMAND - SET 


10570 ' ZZ = TOGGLE FOR CONTROL 


WIDTK 


TO N PIXELS 


CHARACTER ACTION 


10960 


IF ZN <> 1 THEN ZE = ZM: G 


10580 ' **WORKTNG** INDICATES A 


OTO 10 


970 ELSE ZW = Zl 


VARIABLE USED FOR TEMPORARY STOR 


10970 


RETURN 


AGE 
10590 ■ 


10980 
10990 


i 






11000 


1 "%RN,M;'» SUBCOMMAND - RE 


±P Opp —————— — -- _-_-_-_ — — — 


10610 ' START OF CODE 


AD CHARACTERS FROM DISK 


10620 ZM = 1: ZE = 


■11010 


IF ZN <> 2 THEN ZE = ZM: G 


10630 IF ZM > LEN( ZA$ ) THEN RE 


OTO 11140 ELSE ZB = Zl: ZC = Z2 


TURN 


11020 


IF ZO <> THEN IF ZO < ZB 


10640 ZB$ = MID$( ZA$, ZM, 1 ) 


THEN 


GOTO 11040 ELSE CLOSE 2 


10650 IF ZB$ <> "%" THEN GOTO 11 


11030 


OPEN "I", #2, ZF$ 


400 ELSE IF MID$( ZA$ , ZM + 1 , 1 


11040 


IF EOF( 2 ) GOTO 11130 


) <> "%" THEN GOTO 


11050 


INPUT#2, C$( ZI ) 


11400 


11060 


ZO = ( ASC( LEFT$( C$ { ZI 


10660 ' 


), i ) 


) - 128 ) * 128 + 


10670 • "%%" SUBCOMMAND HERE 




ASC( MID$( 


10680 ' 


C$( ZI ; . ) 


10690 GOSUB 11530 


11070 


IF NOT( ( ZO >= ZB AND ZO 


10700 ON ZS GOSUB 10750,10820,10 


<= ZC 


) ) THEN GOTO 11120 


8 60,10910,109 60,11010,11190,113 4 


11080 


E( ZJ ) = ZO 





11090 


E( ZJ + 1 ) = ZI 


10710 GOTO 10630 


11100 


ZJ = ZJ + 2 


10720 ' 


11110 


ZI = ZI + 1 


10730 ' 


11120 


IF ZO < ZC THEN GOTO 11040 


10740 ' "%%I;" SUBCOMMAND - INIT 


ELSE 


GOTO 11140 


IALIZE 


11130 


CLOSE 2 


10750 IF ZN <> THEN ZE = ZM: G 


11140 


RETURN 


OTO 10780 ELSE ZI =0: ZJ - 0: Z 


11150 


i 


F$ = "": ZO = 


11160 






10760 FOR ZL = TO 255: AX ( ZL 


11170 


1 "%%NH,A,M; M SUBCOMMAND - 


) = - 1: NEXT 


EQUATE HERSHEY TO ASCII 


10770 ZU = 1: ZV = .5: ZW = 10: 


11180 


1 EQUATES AS ENTRIES TO E 


ZE = 0: ZZ = 


ENTRIES 


10780 RETURN 


11190 


IF ( ZN <> 3 ) THEN ZE = Z 


10790 ' 


M: GOTO 11300 




L±dpp 


IJK iiJj — X J.W il J 


10810 ' "%%F,NAME;" SUBCOMMAND - 


11210 


FOR ZQ = TO ZJ - 2 STEP 


SET FILE NAME 


2 




10820 IF ZN <> 1 THEN ZE = ZM: G 


11220 


IF E( ZQ ) = ZI THEN GOTO 


OTO 10830 ELSE ZFS = Zl$: CLOSE 


11260 




2 


11230 


NEXT 


108 30 RETURN 


11240 
11250 


ZE = ZM 
GOTO 11270 




10850 ■ "%%SN,M;" SUBCOMMAND - S 


11260 


AX( Z2 ) = ZQ 


ET SCALE FACTORS 


11270 


Zl = Zl + 1 


108 60 IF ZN <> 2 THEN ZE = ZM: G 


11280 


Z2 = Z2 + 1 


OTO 10870 ELSE ZU = Zl: ZV = Z2 


11290 


NEXT ZL 


10870 RETURN 


11300 


RETURN 


10880 ■ 


11310 
11320 


i 

i _ . __ _ _____ 


±p o ^ p 




10900 ■ "%%MX,Y;" SUBCOMMAND - S 


11330 


' "%%C;" SUBCOMMAND - TOGG 


ET GRAPHICS POSITION 


LES CONTROL CODE FLAG 


10910 IF ZN <> 2 THEN ZE = ZM: G 


11340 


IF ZN <> THEN ZE = ZM: G 


OTO 10920 ELSE ZX = Zl: ZY = Z2 


OTO 11360 


10920 RETURN 


11350 


ZZ = ZZ XOR 1 


109 30 ' 


11360 


RETURN 
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11.370 ' 

1138J3 ' 

1139j3 ' NORMAL CHARACTER - MAY B 

E ASCII j3 THROUGH 255 

11400 ZA - ASC( ZB$ ) 

11410 IF ( ZA >= 32 ) THEN GOTO 

11440 ELSE IF ZZ <> THEN GOTO 

11440 

11420 IF ZA = 10 THEN ZY = INT{ 

ZY + 32 * ZV ) : GOTO 11450 

11430 IF ZA <> 13 THEN GOTO 1145 

ELSE ZX = INT{ 16 * ZU ) : GOTO 

11450 
11440 GOSUB 11860 
11450 ZM = ZM + 1 
11460 GOTO 10630 
11470 ■ 
114 80 ■========================= 

11490 ' 

11500 ' PARSE SUBCOMMAND LINE SU 
BROUTINE 

11510 ' RETURNS ZN = # ARGS ; Zl 
a ARG1; Z2 = ARG2 ; Z3 = ARG3 ; ZE 
= CP OF ERROR; Z 

S = SUBCOMMAND FUNCTION 
11520 ' 
11530 ZN = 
11540 ZC$ = MID$( ZA$, ZM + 2, 1 

) 
11550 ZS = INSTR( "IFSMWRNC" , ZC 

$ ) 

11560 IF ZS - THEN ZS - INSTR £ 

"ifsmwrnc", ZC$ ) 
11570 IF ZS = THEN ZE = ZM 
11580 ZM = ZM + 3 

11590 FOR ZF = ZM TO LEN ( ZA$ } 
11600 IF MID$( ZA$, ZF, 1 ) = " ; 
" OR MID$( ZA$, ZF, 1 j = "," TH 
EN GOTO 11630 
11610 NEXT ZF 
11620 ZE = ZF - 1: ZM = ZE; GOTO 



11790 
11630 Zl = VAL( MID$( ZA$ , ZM, Z 
F - ZM ) ) 

11640 Zl$ = MID$( ZA$, ZM, ZF - 
ZM ) 

11650 ZM = ZF + 1: IF ZF <> 4 TH 
EN ZN = ZN + 1 

11660 IF MID$( ZA$, ZF, 1 ) = " ; 
" THEN GOTO 117 90 
11670 FOR ZF = ZM TO LEN ( ZA$ ) 
11680 IF MID$( ZA$, ZF, 1 ) = " ; 
" OR MID$( ZA$, ZF, 1 ) = ",»' TH 
EN GOTO 11710 
11690 NEXT ZF 
11700 ZE = ZF - 1: ZM = ZE: GOTO 

11790 
11710 Z2 = VAL( MID$( ZA$ , ZM, Z 
F - ZM ) ) 

11720 ZM = ZF 4- 1: ZN = ZN + 1: 
IF MID$ ( ZA$, ZF, 1 ) = ";" THEN 

GOTO 11790 
11730 FOR ZF = ZM TO LEN ( ZA$ ) 
11740 IF MID$( ZA$, ZF, 1 ) = " ; 
11 THEN GOTO 11770 
11750 NEXT ZF 
11760 ZE = ZF - 1: ZM = ZE: GOTO 

11790 
11770 Z3 = VAL( MID$( ZA$ , ZM, Z 
F - ZM ) ) 

11780 ZM = ZF + 1: ZN = ZN + 1 
11790 RETURN 
11800 ' 
11810 '========================= 

11820 ' 

11830 ' DISPLAY CHARACTER SUBROU 

TINE 

11840 ' DISPLAYS A GIVEN HERSHEY 

CHARACTER # REFERENCED BY ASCII 

CODE 
11850 ■ 
11860 IF AX( ZA ) = -1 THEN ZE = 



1988 - The Year of the Hard Disk! 

The CoCo XT hard disk Eniarface Irom Burke & Btirke lets you conned up lo 2 low 
cost, PC compatible 5-120 Megabyte capacity hard drives lo your CoCo. You buy ihe 
drive. Western Digilal WO1002-WX1 or WD10O2-27X (RLLJ controller, and a case irom 
the PC dealer o! your choice. Just plug them Into I he Co Co XT, plug the Co Co XT Into 
your Mult i-PAK, and you have a 20 WegOSQ hard dasksyslem for under $4501 

Greet for muEli-user systems! The CoCo XT Interlace uses advanced "NO HALT" 
hard disk conlrollera, which do nol halt your CoCo and do not disabte or use Interrupts 
during hard disk access. You gee lull [ype-ahead, and the system clock does not lose 
time during hard disk access. Fully compatible wilh most RS-232 expansion ports! 

CgCo XT (with anodlzed housing,. 50 page user manual, hard disk back-up utility and 
new. Version 2.0 drivers lor use with bolh OS9 & HYPER-1/O} - $69.95. Or choose the 
CoCo XT-RTC (includes realtime clock / calendar wilh baltery backup) - $99,95 

THE PROFESSIONAL TOUCH: XT-HOM -Automatically boots OS9 from your 
hard disk. Installs In ihB BIOS ROM socket of your hard disk controller -- $19.95. 


Announcing the Dynamic Disk Interface! 

Goi the 35-track floppy disk blues? Burke & Burke proudly presents HYPER-I/O 
Version 2.0 - the program that modifies the RS-DOS Disk BASIC in your CoCo 1, 2, 
or 3 to provide a "Dynamic Disk Interface", This program lets you use your exisiing 
BASIC and RS-DOS sollware with hard disk Interfaces (such as Ihe CoCo XT), RAM 
Disks, and any mix ol lloppy drives from 16QK lo 720K each. HYPER-I/O can oven read : 
standard disks in Ihose quad-density, 160 track lloppy drives. Fully RESET protected, 
user-configurable, expandable. OS9 compatible, EPROM-able HYPER-lfO may soon 
beTHE RS-DOS enhancement of choice for the CoCo 1 . CoCo 2. and CoCo 31 

HYPER-I/O (64K, includes 50 page user manual , BASIC & OS9 utilities) -- $29.95. 

HYPER-III (RAM Disk and Print Spooler for CoCo 3 HYPER-i/O) -$19.95 

OS9 Directory Assistants WILD lets you use wifcl cards wiihOSSs 
commands. MV rapidly moves files, and even entire directories, from place lo place 
on your hard or ftoppy disks. WILD & MV — one disk, iwo great utilities, only $t9.95f 

OSS: wild asm /dfl/fltc/r.irc o-/dl/afl s/j:*l snaft/ * .,*b:i 
OSS: mv /dl/abg/Eeloase /dl/^olaase 


^9 mvkt & JBBwfc* 

I \4g|/P.O. BOK 1283 Palatine, IL 60078-1 2S3 (312) 397-2898 








i 


!S 


I COO's add 52.20. Shipping {wtihin ihe USA) 52.00 per //5"Cft : 

ViS^\ CoCo XT: S1 .50 pord.sk o/ ROM. Ptsasa allow 2 weeks ■■* **" ; 

| for delivery {overnight delivery also available lor irvstock RAINBOW ; 






tlsma). Telephofis orders aee&pted {312} 397-2998. CH*H«j*l«t* j 
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Protect and highlight 
your important 
magazine collection 

with sturdy 
RAINBOW binders 







Distinctive, Durable RAINBOW Binders 

the rainbow is a vital resource to be referred to 
again and again. Keep your copies of the rainbow safe 
in our quality, distinctive binders that provide com- 
plete protection. 

These attractive red vinyl binders showcase your 
collection and ensure your rainbows are in mint 
condition for future use. Each binder is richly em- 
bossed with the magazine's name in gold on the front 
and spine. They make a handsome addition to any 
room. 

Put an End to Clutter 

Organize your workspace with these tasteful bind- 
ers. Spend more time with your CoCo and eliminate 
those frustrating searches for misplaced magazines. 

A set of two binders, which holds a full 12 issues of 
the rainbow, is only $13.50 {plus $2.50 shipping and 
handling). 

Special Discounts on Past Issues 

To help you complete your collection of the rain- 
bow, we're offering a special discount on past issues 

of the magazine. 

When you place an order for six or more back issues 
of the rainbow at the same time you order binders, 
you are entitled to $1 off the regular back issue price. 
To order, please see the "Back Issue Information" 
page in this issue. 

Know Where to Look 

You may purchase the "Official And Compleat Index 
To THE RAINBOW" for $1 when you purchase a set 
of binders. This comprehensive index of rainbow's 
first three years (July 1981 through July 1984) is 
usually priced at $2.50. 



YES. Please send me 



set(s) of RAINBOW binders 




Take advantage of these special offers with your binder purchase: 

Save $1 off the single issue cover price for back issues. Minimum order of 6 magazines. Please 

enclose a back issue order form from a recent issue indicating magazines wanted. 

Purchase the "Official and Compleat Index to THE RAINBOW" for $1. {Regular price $2.50.) 

(These offers good only with the purchase of a rainbow binder set) 

Name 

Address 

City 



State 



ZIP 



D My check in the amount of is enclosed. (In order to hold down costs, we do not bill.) 

Charge to: □ VISA □ MasterCard □ American Express 

Account Number Expiration Date 

Signature 

Mail to: Rainbow Binders, The Falsoft Building, P.O. Box 385, Prospect, KY 40059. 

Binders are $13.50 per two-binder set plus $2.50 shipping and handling. If your order is to be sent via U.S. mail to 
a post office box or foreign country, please add $2. Kentucky residents add 5% sales tax. U.S. currency only, please. 
In order to hold down non-editorial costs, we do not bill. 

For credit card orders call (800) 847-0309, 8 a.m. to 5 p.m. EST 
All other inquiries call (502) 228-4492. 



ZM: GOTO 12180 
11870 ZK = E( AX( ZA ) + 1 ) 
11880 IF ZW <> 999 THEN GOTO 119 
20 

11890 ZF = -( ASC( MID$(C$( ZK ) 
, 3, 1 )) - 128 ) + ASC( MID$(C$ 
( ZK ) , 4, 1 ) ) - 128 
11900 ZF = ( ZF / 2 ) * ZU 
11910 ZX = INT(ZX + ZF) 
11920 HDRAW "BM" + STR$ ( ZX ) + 
"," + STRS( ZY ) 
11930 ZL = 5 

11940 ■ START AT FIRST X/Y COORD 
INATE, BYPASS WIDTH 
11950 IF LEN( C$( ZK ) ) <= 6 TH 
EN GOTO 12130 

11960 ZF - ASC( MID$( C$ ( ZK ) , 
ZL, 1 ) ) - 128 

11970 ZG = ASC( MID$( C$ ( ZK }, 
ZL + 1, 1 ) ) - 128 
11980 ZL = ZL + 2 

119 90 ZF=ZF*ZU:ZG=ZG*ZV:ZF=INT(Z 
X+ZF) :ZG=INT(ZY+ZG) 
12000 HDRAW M BM" + STR$ ( ZF ) + 
"," + STR$( ZG ) 

12010 ' GET REMAINING X/Y COORDI 
NATES AND DRAW LINE SEGMENTS 
12020 ZF = ASC( MID$( C${ ZK ), 
ZL, 1 ) ) - 128 

12030 ZG = ASC( MID$( C$ ( ZK ), 
ZL + 1, 1 ) ) - 128 



12040 ZL = ZL + 2 

12050 IF ( ZF = -64 ) AND { ZG = 

-64 ) THEN GOTO 12130 
12060 IF NOT( ( 2F - -64 AND ZG 
= 0) ) THEN 12110 
12070 ZF = ASC( MID$( C$ ( ZK ), 
ZL, 1 ) ) - 128 

12080 ZG = ASC( MID$( C$ ( ZK ), 
ZL + 1, 1 ) ) - 128 
12090 ZL = ZL + 2 

12100 ZF = ZF * ZU: ZG = ZG * ZV 
: ZF = INT(ZX + ZF) : ZG = INT(ZY 

+ ZG) : HDRAW "BM" 

+ STR$( ZF ) + " ," + STR$ ( ZG ) 
: GOTO 12120 

12110 ZF = ZF * ZU: ZG = ZG * ZV 
: ZF = INT(ZX + ZF) : ZG = INT{ZY 

+ ZG) : HDRAW "M" 

+ STR$( ZF ) + "," + STR$( ZG ) 
12120 GOTO 12020 

12130 IF ZW <> 999 THEN ZX = ZX 
+ ZW: GOTO 12180 

12140 ZF = -( ASC( MID$(C$( ZK ) 
, 3, 1 )) - 128 ) + ASC( MID$(C$ 
( ZK ) , 4, 1 )) - 128 
12150 ZF = ( ZF / 2 ) * ZU 
12160 ZX m ZX + ZF 
12180 RETURN 
12190 '========================= 



Listing 3: EXAMPLE 




50 ■ DEMONSTATION 1 FOR HERSHEY 


68 ZA$=" %%I ; %%FHERSHMAS/ ; %%R699 , 


SCREEN - FONTS 


699 ;%%R2051, 2076 ;%%R2151, 2176;;% 


5 2 CLEAR 7000 


%N2051,65,26;%%N2151,97,26;%%N69 


54 DIM E(300), CS(150), AX(255) 


9,32,1;%%S1.0,0.4;%%W999;%%M32,7 


5 6 HSCREEN 4 


6;This is Italics": GOSUB 10000 


5 8 PCLS 


70 ZA$="%%S2.0,1.5;%%M3 2,103;Lar 


60 ZA$="%%I ; %%FHERSHMAS/ ; %%R501 , 


ge and Tall": GOSUB 10000 


526;%%R601,62 6;%%R699,699;%%N699 


72 ZA$="%%I ;%%FHERSHMAS/ ; %%R699 , 


,32,1;%%N501,65,26;%%N601,97,26; 


699 ;%%R3301, 3325 ;%%N3301, 65,26;% 


":GOSUB 10000 


%N69 9,3 2,1;%%S1.5,0. 6;%%W999;%%M 


62 ZA$=" %%S1 . 0,0.4; %%W20 ; %%M32 , 1 


3 2, 140;DEUTSCHLAND": GOSUB 10000 


6; This is Simple Text": GOSUB 10 


74 ZA$="%%R3001, 3003 ;%%N3001, 65, 


000 


3 ; " : GOSUB 10000 


64 ZA$="%%W999;%%M3 2,3 6;This is 


76 ZA$="%%S0. 3 ,0 . 15;%%M32 , 170 ;AB 


Proportional Text": GOSUB 10000 


C%%S0 .5,0.2; %%M62 , 170 ; ABC%%30 .75 


66 ZA$="%%I ; %%FHERSHMAS/ ; %%R699 , 


,0.3;%%M112,170;ABC%%S1.0,0.4;%% 


699 ;%%R3001, 3026 ;%%R3101, 312 6;%% 


M177,170;ABC%%S1.5,0.6;%%M270,17 


N3001,65,26;%%N3101,97,26;%%N699 


0;ABC%%S2.0,0.8;%%M400, 170;ABC%% 


,32, 1?%%S 1.0,0 .4 ;%%W99 9 ;%%M3 2,5 6 


S3.0,1.6;%%M560,170;A": GOSUB 10 


;This is Complex Text": GOSUB 10 


000 


000 


7 8 GOTO 7 8 

as* 
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Racksellers 

The retail stores listed below carry THE RAINBOW on a regular basis and 
may have other products of interest to Tandy Color Computer users. We 
suggest you patronize those in your area. 



ALABAMA 

Birmingham 

Brewton 

Florence 

Greenville 

Madison 

Montgomery 

Tuscaloosa 

ALASKA 

Fairbanks 

ARIZONA 

Cottonwood 
Lake Havasu 

City 
Phoenix 
Sierra Vista 
Temps 

Tucson 

ARKANSAS 

Fayeftevrlte 
Ft. Smith 
Little Rock 

CALIFORNIA 
Berkeley 
Citrus Heights 
Gross Valley 
Hall Moon Bay 
Hollywood 

La Jollo 

Los Angeles 

MorysvHle 

Napa 

Oakldnd 

Sacramento 

San Francisco 



Jefferson News Co. 
McDowell Electronics 
Anderson News Co. 
M & 8 Electronics 
Madison Books 
Trade h N' Books 
Injun John's, Inc. 

Electronic World 

A & W Graphics Co. 

Book Nook 
TRI-TEK Computers 
Livingston's Books 
Books. Etc, 
Computer Library 
Anderson News Co, 

Vaughn Electronics/Radio Shack 
Hot Off the Press Newsstand 
Anderson News Co. 

Lyon Enterprises 

Software Plus 

Advance Radio. Inc. 

Strawflower Electronics 

Levity Distributors 

Sfef-Jen. Inc. 

Butler & Mayes Booksellers 

Circus of Books (2 Locations) 

Bookiand 

Bookends Bookstore 

DeLauets News Agency 

Oeibert's Readerama 

tower Magazine 

Booksrnilh, 

Bookworks 

Castro Kiosk 

Midnight Speclol Bookstore 

Computer Literacy Bookshops 

Sawyer's News. Inc. 

Harding Way News 

Paperbacks Unlimited 

Compuler Literacy 

El Camino College Bookstore 

Aurora Newsstand 



Santa Monica 
San Jose 
Santa Rosa 
Stockton 

Sunnyvale 
Torrance 

COLORADO 

Aurora 

Colorado 
Springs 

Denver 
Glenwood 

Springs 
Grand 

Junction 
Longmont 

DELAWARE 

Mlddletown 
MUford 

Newark 
Wilmington 

DISTRICT OF COLUMBIA 

Washington, 
DC Chronichles 

News Room 
World News. Inc. 



Halhaway*s 
News Gallery 

The Book Train 

Readmare Book & Magaiine 
City Newsstand 



Delmat Co. 
Mllford News Stand 
Newark Newsstand 
Normar. inc.— The Smoke Shop 



FLORIDA 

Boca Raton 

Clearwater 

Cocoa 

Dania 

Davie 

Fl. Lauderdale 



Gainesville 
Jacksonville 



North Miami 

Beach 
Panama Clly 
Pensacoto 

Pinellas Park 



Great American Book Co. 

Software. Software, Inc. 

The Avid Reader 

The Open Door 

Dania News & Books 

Software Plus More 

Bob's News & Book-store 

Clarks Out of Town News 

Mike's Electronics Distributor 

Paper Chase 

Book Co. 

The Book Nook 

White's of Downtown Bookstore 

Almar Bookstore 
Boyd-Ebert Corp. 
Anderson News Co. 
Wolfs Newsstand 



FLORIDA (can I'd) 




South 




Pasadena 


Poling Place Bookstore 


Starke 


Record Junction. Inc. 




Radio Shack Dealer 


Sunrise 


Sunn/s ot Sunset 


Tallahassee 


Anderson News Co. 




DuBe/s News Center 


Tltusville 


Carnputrac 


GEORGIA 




Atlanta 


Border's 


Bremen 


Bremen Electronics/Radio Shack 


Forest Park 


Ellers News Center 


Jesup 


Rodio Shack 


Marietta 


Act One Video 


Thomasville 


Smokehouse Newsstand 


Toccoa 


Martin Music Radio Shack 


IDAHO 




Boise 


Book Shell, Inc. 


Moscow 


Johnson News Agency 


ILLINOIS 




Belleville 


Software or Systems 


Champaign 


Bookmark 


Chicago 


B. Daiton Booksellers 


Decatur 


Book Emporium 




K-Mart Plaza 




Northgate Mall 


East Moline 


Book Emporium 


Evanston 


Narris Center Bookstore 


Kewanee 


Book Emporium 


Lisle 


Book Nook 


Lombard 


Empire Periodicals 


Newton 


Bill's TV Radio Shack 


Paris 


Book Emporium 


Peoria 


Book Emporium 




Sheridan Village 




Westlake Shopping Center 




Illinois News Service 


Springfield 


Book Emporium 




Sangamon Center North 




Town & Country Shopping Ctr. 


Sunnytand 


Book Emporium 


West Frankfort 


Paper Place 


Wheeling 


North Shore Distributors 


INDIANA 




Angola 


D & D Electronics 




Radio Shack 


Berne 


White Cottage Electronics 


Bloom Ington 


Book Corner 


Columbus 


Micro Computer Systems, Inc. 


Crawfordsville 


Koch's Books 


Dyer 


Miles Books 


Franklin 


Gallery Book Shop 


Garrett 


Finn News Agency, Inc. 


Indianapolis 


Bookland, Inc. 




Borders Bookshop 




Del mar News 




Indiono News 




Southslde News 


Lebanon 


Gallery Book Shop 


Martinsville 


Radio Shack 


Wabash 


Mlttlng's Electronics 


IOWA 




Davenport 


Interstate Bock Store 


Des Moines 


Ihackery's Books. Inc. 


Fairfield 


Kramers Books & Gifts 


Ottumwa 


Soulhside Drug 


KANSAS 




Hutchinson 


Crossroads. Inc. 


Topeka 


Palmer News, inc. 




Town Crier of Topeka. Inc. 


Wellington 


Dandy's/Radio Shack Dedler 


Wichita 


Amateur Radio Equipment Co. 




Lloyd's Radio 


KENTUCKY 




Hazard 


Daniel Boons Gulf Marl 


Henderson 


Matfs News & Gifts 


Hopkinsvllle 


Hobby Shop 


Louisville 


Hawley-Cooke Booksellers (2 Loc< 


Paducah 


Radio Shack 



LOUISIANA 

Baton Rouge City News Stand 

New Orleans Sidney's News Stand Uptown 

Monroe The Book Rack 

MAINE 

Bangor Magazines, Inc. 



MAINE (conl'd) 




Brockton 


Voyager Bookstore 


Caribou 


Radio Shack 


Oxford 


Books- N-Things 


Sanford 


Radio Shack 


MARYLAND 




College Park 


University Bookstore 


MASSACHUSETTS 




Boston 


Eastern Newsstand 


Brockton 


Voyager Bookstore 


Cambridge 


Out Ol Town News 


Ipswich 


Ipswich News 


Littleton 


Campjter Plus 


Lynn 


North Shore News Co. 


Swansea 


Newsbreak, Inc. 


MICHIGAN 




Allen Pork 


Book Nook, Inc. 


Birmingham 


Border's Book Shop 


Durand 


Robblns Electronics 


E. Detroit 


Merit Book Center 


Harrison 


Harrison Radio Shack 


Hillsdale 


Electronics Express/Radio Shack 


Holland 


Fris News Company 


Howell 


Howell Auto Parts 


Lowell 


Curl's Sound & Home Arcade Center 


Muskegon 


The Eight Bit Corner 


Miles 


Mlchlona News Service 


Perry 


Perry Computers 


Rlvervlew 


Rrverview Book Store 


Rosevllle 


New Horizons Book Shop 


MINNESOTA 




Burnsville 


Shinder's Burnsville 


Crystal 


Shinder's Crystal Gallery 


Duluth 


Carlson Books 


Edlna 


Shinder's Leisure Lane 


Minneapolis 


Shinder's (2 Locations) 


Minnetonka 


Shinder's Ridge Square 


Roseville 


Shinder's Roseville 


St. Paul 


Shinder's Annex 




Shinder's Maplewood 




Shinder's St. Pauls 


Will mar 


The Photo Shop 


MISSOURI 




Farrnington 


Rays TV & Radio Shack 


Flat River 


Ray's TV & Radio Shack 


Florissant 


Book Brokers Unlimited 


Jelferson City 


Cowley Distributing 


Kltksville 


T&R Electronics 


Mofoerry 


Audio Hut 


St. Louis 


Book Emporium 


St. Robert 


Bailey's TV & Radio 


MONTANA 




Butte 


Plaza Books 


Whiteflsh 


Consumer Electronics ol Whitelish 


NEBRASKA 




Lincoln 


Nebraska Bookstore 


Omaha 


Nelson News 


NEVADA 




Carson City 


Bookcellar 


Las Vegas 


Hurley Electronics 




Sieve's Books & Magazines 


NEW HAMPSHIRE 




Keene 


Radio Shack Associate Store 


Manchester 


Bookwrights 


Wesl Lebanon 


Verham News Corp. 


NEW JERSEY 




Atlantic City 


Atlantic City News. Agency 


Cedar Knolls 


Village Computer & Software 


Clinton 


Micro World II 


Marmora 


Oulpost Rodio Shack 


Pennsville 


Dave's Elect Radio Shack 


Rockoway 


Software Station 


NEW MEXICO 




Alamogordo 


New Horizons Computer Systems 


Albuquerque 


Front Page Newsstand 




Page One Newssland 


Santa Fe 


Downtown Subscription 


NEW YORK 




Amherst 


Village Green-Buffalo Books 


Brockport 


Lift Bridge Book Shop, inc. 


Brooklyn 


Cromiand. Inc. 


Elm Ira Heights 


Southern Tier News Co., Inc. 


Fredonia 


On Line: Computer Access Center 


Hudson Falls 


G A West & Co. 
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NEW YORK (conl'd) 



Huntinglon 


Oscar's Bookshop 


-Johnson City 


Unicorn Electronics 


New York 


Barnes Br Noble— Sales Annex 




Coliseum Books 




Eastern Newsstand 




Grand Central Station, Track 37 




200 Park Ave.. {Pen Am #1) 




55 Water Street 




World Trade Center *2 




First Stop Mews 




Idie Hours Bookstore 




International Smoke Shop 




Jonii Smoke 




PennBook 




Software Clly 




Stole News 




Walden Books 




World Wide Medio Services 


Fowling 


Universal Computer Service 


Rochester 


Village Green 




World Wide News 


Woodhoven 


Spectrum Projects 


NORTH CAROLINA 


Caiy 


News Center in Cary Village 


Chapel Hill 


University News & Sundry 


Charlotte 


Newsstand Int'l 




Papers & Paperback 


Havlock 


Computer Plus 


Hickory 


C Books & Comics 


Jacksonville 


Michele's, Inc. 


Kemerwiile 


K & S Newsstand 


Morion 


Boomers Rhythm Center 


Winston-Salem 


K & S Newsstand (3 Locations) 




Rainbow News Ltd. 


OHIO 




Akion 


Churchill News & Tobacco 


Blanchester 


JR Computer Control 


Canton 


Little Professor Book Center 


Chardon 


Thrasher Radio & TV 


Cincinnati 


Cinsott 


Cleveland 


Erieview News 


Columbiana 


Fidelity Sound & Electronics 


Columbus 


B5 Software 




Micro Center 




The Newsstand 


Dayton 


Books & Co. 




Huber Heights Book & Card 




Wilke News 




Wright News & Books 


Dublin 


Book Bom 


Falrbcrn 


News-Readers 




Wltke's University Shoppe 


Find ley 


Open Book 


Kent 


The News Shop 


Lakewood 


Lakewood international News 


Lima 


Edu-Caterers 


Miamisburg 


Wilke News 


Parma 


Bookmark Newscenter 


Toledo 


Leo's Book & Wine Shop 


Worten 


Book Nook, Inc. 


Xenia 


Fine Print Books 


Youngsrown 


Pla:a Book & Smoke Shop 


OKLAHOMA 




Oklahoma 




City 


Merit Micro Software 


Taklequafi 


Thomas Sales, Inc. dba Radio Shai 


Tulsa 


Steve's Book Store 


OREGON 




Eugene 


Libra Books — Bock Mark 


Portland 


Fifth Avenue News 



Rich Cigar Store, Inc. 
Sixth & Washington News 
Capitol News Center 
Checkmate Book 



Salem 

PENNSYLVANIA 

AllentowTi 
Altoona 
Bryn Mowr 
Feostervllis 
King of Prussia 
Malvern 
Phoenitt/ille 
Reading 
Temple 
West Chester 
Wind Gap 
York 

RHODE ISLAND 

Newport 
Warwick 

SOUTH CAROLINA 
Charleston Hts. Software Haus, Inc. 



Owl Services 

Newborn Enterprises 

Bryn Mawr News 

Global &acks 

Gene's Books 

Personal Software 

Stevens Radio Shack 

Smith's News & Card Center 

Software Corner 

Chester County Book Co. 

Micro World 

The Computer Center ol York 

Tollgote Bookstore 

Bellevue News 
Software Connection 



TENNESSEE 




Brentwood 


Bookworld #5 


Chattanooga 


Anderson News Co. 




Guild Books & Periodicals 


Dickson 


Highland Electronics 


Knoxvllle 


Anderson News Co 




Davls-Kidd Bookseller 


Memphis 


Computer Center 


Nashville 


Davis-Kidd Booksellers 




Mosko's Place 




R,M. Mills Bookstore 


Smyrna 


Detker Electronics 


TEXAS 




Big Spring 


Poncho's News 


Brenham 


Moore's Electronics 


Desoto 


Maxwell Books 


Elgin 


The Homing Pigeon 


Harllngton 


Book Mark 


UTAH 




Prove 


Valfey Book Center 


VIRGINIA 




Danville 


K 8; S Newsstand 


Hampton 


Benders 


Norfolk 


■ ■■ :.i-i: ij(f-r.\ 




Turn The Page 


Richmond 


Volume 1 BocKstore 


WASHINGTON 




Port Angeles 


Pari Book & News 


Seattle 


Adams News Co.. Inc 




Bulldog News 


Tacoma 


B Si 1 Magazines & Books 




Nybbles 'N Bytes 


WEST VIRGINIA 




HL-nlington 


Nick's News 


Logon 


Stan's Electronics & Radio Shock 


Madison 


Communications. LTD 


Porkersburg 


Valley Newsservice 


South 




Charleston 


Spring Hill News 


WISCONSIN 




Appleton 


Badger Periodicals 


Cudohy 


Cudahy News St Hobby 


Kenosha 


R.K. News, Inc. 


Madison 


Pic A Book 




University Bookstore 


MI;wouk;«e 


Juneau Village Reader 


Racine 


Little Professor Book Center 


Waukesha 


Holt Variety 


ARGENTINA 




Cordoba 


Information Telecommunication* 


AUSTRALIA 




Blaxland 


Blaxland Computers 


Kingsford 


Parts Radio Electronics 


CANADA: 




ALBERTA 




Banfl 


Banff Radio Shack 


Blalrmore 


L&K Sports & Music 


Bonnyvllle 


Paul Tercler 


Brooks 


Double "D" A.S.C. Radio Shack 


Calgary 


Billy's News 


Claresholm 


Radio Shack Associated Stores 


Drayton Valley 


Langord Electronics 


Edmonton 


CMD Micro 


Edson 


Radio Shack, asd 


Fairview 


D.N.R. Furniture & TV 


Fox Creek 


Fox City Color & Sound 




AS.C. Radio Shack 


Ft. Saskatche- 




wan 


Ft. Mall Radio Shack, ASC 


Grande 




Cache 


The Stereo Hut 


Grande 




Centre 


The Book Nook 


Hlnlon 


Jim Cooper 


Innisfail 


L8iS Stereo 


Lecombe 


Brian's Electronics 


Lectin: 


Radio Shack Associated Stores 


Lethbridge 


Datatron 


Lloydminster 


Lloyd Radio Shack 


Okotoks 


Okotoks Radio Shack 



ALBERTA (cont'd) 




Peace wiver 


Rado Shack Associated ! 




Tavener Software 


St. Paul 


Waller's Electronics 


Steffler 


Steftler Rodio Shock 


Strath more 


Wheatland Electronics 


Taber 


Pynewood Sight a Sound 


Wesllock 


Westlock Stereo 


Wetasklwin 


Radio Shack 


BRITISH COLUMBIA 


Bumaby 


Compullt 


Bums Loke 


VT, Video Works 


Campbell 




River 


TRS Electronics 


Chilllwack 


Charles Parker 


Coortenay 


Rick's Music & Stereo 


Dawson Creek 


Bell Radto & TV 


Golden 


Taks Home Furnishings 


Kelowno 


Telesoft Marketing 


Langley 


Langley Radio Shack 


N. Vancouver 


Mlcrowest Distributors 


Nelson 


Oliver's Books 


Parksville 


Paricwllle TV 


Penticton 


DJ.'5 




Four Corner Grocery 


Sidney 


Sidney Electronics 


Smithers 


Wall's Home Furniture 


Squamlsh 


Kotyk Electronics 


100 Mile 




House 


Tip Top Radio 8t TV 


MANITOBA 




Alton a 


LA Wiebr Ltd. 


Lundor 


Goranson Eiec. 


Maiden 


Central Sound 


The Pas 


Jodi's Sight a Sound 


Selkirk 


G.L Enns Erec. 


Virden 


Archer Enterprises 


Winnipeg 


J & J Electronics Ltd. 



NEW BRUNSWICK 

Moncton Jeffries Enterprises 

Sussex Dewitt Eiec. 

NEWFOUNDLAND 

Botwood Seaport Eiec. 

Carbonear Slaae Realties 

NOVA SCOTIA 

Halifax 

ONTARIO 

Angus 

Aurora 

Concord 

Exceter 

Ftanovei 

Huntsville 

Kenora 

Kingston 

Listowel 

South River 

QUEBEC 

LaSalle 
Ponf. Rouge 
Vlile St. Gabriel 

SASKATCHEWAN 

Asslnibola 
Estevan 
Moose Jaw 
Niplwan 
Reglna 

Saskatoon 
Shellbrooke 
Tisdate 
Unity 

YUKON 

Whllehorse 

JAPAN 

Tokyo 

PUERTO RICO 

San Juan 



Atlantic News 

Micro Computer Services 

Campu Vision 

Ingram Software 

J. tvtacieane & Sons 

Modern Appliance Centre 

Huntsville Eiec. 

Donny "B" 

T.M. Computers 

Modern Appliance Centre 

Max TV 

Dennis TV 

Messageries de Presse Benjamin Enr, 

Boutique Bruno Laroche 

Giiles Comeau Enr/Radio Shack 

Telstar News 
Kotyk Electronics 
DaS Computer Place 
Cornerstone Sound 
Reglna CoCo Club 
Software Supermarket 
Everybody's Software Library 
Gee. Laberge Radio Shack 
Paul's Service 
Grant's House of Sound 

H & O Holdings 



America Ada, Inc. 



Software City 



Clemson 
Florence 

Greenville 

Spartanburg 

Union 



Clemson Newsstand 
Ray's #1 

Palmetto News Co. 
Software City 
Fleming's Electronics 



Also available at all B. Dalton Booksellers, and 
selected Coles — in Canada, Waldenbooks, Pickwick 
Books, Encore Books, Barnes & Noble, Little 
Professors, Tower Book & Records, Kroch's & 
Brentano's, and Community Newscenters. 
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Advertisers Index 



We encourage you to patronize our advertisers — ait of whom support the Tandy Color 
Computer. We will appreciate your mentioning the rainbow when you contact these firms. 



A to Z Unlimited 175 

After Five Software 81 

Alpha Products 21 

Ark Royal Games 93 

Burke & Burke 187 

Cer-Comp 143, 145 

Cinsoft 57 

CJN Enterprises 117 

Clearbrook Software 

Group 89 

CoCo Gallery Live 49 

Cognitec 29 

Colorware 22, 23 

Computer Center 1 73 

Computer Island 183 

Computer Plus ..... 3 

Computerware 97 

CY-BURNET-ICS 169 

D.P. Johnson 163 

Dayton Associates of 

W.R. Hall, Inc. 132,133 

Delphi 106,107 

Diecom IFC, IBC 

Disto/CRC 185 

E.Z. Friendly Software 111 

Federal Hill Software 139 

Frank Hogg Laboratory 54, 55 

George Aftamonow 45 

Gimmesoft 95 

Glen Calafati 14 

Hard Drive Specialists 193 

Hawkes Research 

Services 57 

HJL Products 105 

Howard Medical .66, 194 

J & R Electronics 45 

K— SOFT 111 

KLC Software 159 

Metric Industries 83 

Micro Works, The 85 

Microcom Software .. .9, 11, 13, 15 
Microtech Consultants 

Inc 79 

MicroWorld 31 

Other Guys CoCo, The .71 
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Owl-Ware 151,152, 153 

Performance Peripherals 1 61 

Perry Computers 1 65 

Preble's Programs, Dr BC 

PXE Computing 7 

R.A.D. Products 181 

R.G.B. Computer Systems 181 

R.J. F. Software 117 

Rainbow Binder 188 

Rainbow Bookshelf 120, 121 

Rainbow Gift Subscription 17 

Rainbow on Tape and Disk 41 

RAINBOWfest 50,51 

Saint Johns Gallery .37 

Sardis Technologies 177 

SD Enterprises 27, 67, 109 

SEESOF 33 



Call: 

Belinda Kirby 
Advertising Representative 

The Falsoft Building 
9509 U.S. Highway 42 
P.O. Box 385 
Prospect, KY 40059 

(502) 228^497 



□ Call: 

Kim Vincent 

Advertising Representative 

The Falsoft Building 
9509 U.S. Highway 42 
P.O. Box 385 
Prospect, KY 40059 

(502) 228-4492 



Soft-BYTE 159 

Software House, The .39 

SpectroSystems 53 

Speech Systems 46, 47 

Sugar Software 1 55 

Sundog Systems 127 

T&DSoftware 147,178,179 

Tandy/Radio Shack 114, 115 

Tepco 43 

Three C's Projects 175 

Tom Mix Software 141 

True Data Products 100, 101 

Vidtcom Corporation 25 

Wasatchware 81 

Woodstown Electronics 61 

Zebra Systems 65 




The Best Money Can Buy . . - 
HDS Floppy Drive Controller Board 




Reduce your I/O errors with the Hard Drive Specialist 
FloppyDHve Controller for the Color Computer. Gold edge 
card connectors, advanced design, and the absence of 
MtenSters make it the best available. Our newest v| - 
ston controller allows the use of either (two 24 pir i ROMS) 
nr Tnne 24 o n and one 28 pin ROM). Using this board 
with the standard Radio Shack ROM gives you 100o/ D com- 
patibility with ail Radio Shack software. 
Completed and Tested Board 

with Radio Shack ROM *» ■ 

(Includes Case, and DOS instructions) 

Completed and Tested Board without ROM . . . $79. 

(Includes Case) S30 

Bare Board with Instruction manual L £»»■ 

Parts Kit For Bare Board without ROM $30. 

Radio Shack ROM (current version) **£ 

Radio Shack ROM 1.0 * HW ' 



Qraarmg wtoritiMlon : t„,«o)b, Or 
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Drive Complete v $ 199 - 

Drive 1 Complete $ 129 ' 

Drive & 1 Dual Drive $319- 



HARD DRIVE SPECIALIST 



1-713-480-6000 
Order Line 1-800-231-6671 
16208 Hickory Knoll 
Houston, Texas 77059 



Corporate/School: f^$%%£ 1 u 3 mber 



_ 



CONTROLLERS 

The DC-4 is a scaled-down version of the popular DC- 
2 without a parallel port. It includes a switch with 2 ROM 
sockets, JDOS, manual and such features as gold 
connectors and metal box, it accesses double sided 
drives and accepts RSDOS 1.1 for Radio Shack compat- 
ibility 



$65 



($2 Shipping) 



RS 1.1 R.S.ROM Chip $25 



DC-2 
$98 




J&M Disk Controller with parallel 
port/Hard Drive expansion bus 
makes a revival with the CoCo 3. 



($2 Shipping) 



DISK DRIVE SPECIALS 



U li I V C %} T Howards Drive gives you a 

DD-3 MPI drive, a CA-1 cable and a J&M OC-4 Disk Controller 
for only. Add $34 for a Disto DC-3 replacement, «s shipping) 

DOUBLE SIDED 
DOUBLE DENSITY 
360K ff AS 



$17845 



|P1>I^^ 



Separate Disk Drive Components 

DD-3 An MPI 52 double-sided, double density, 360K disk 
drive in a full height case and heavy-duty power supply. 



$9a 



<S2 shipping) DRIVE ONE 



DCS 

($2 Shipping) 



NEW FROM DISTO $129 

Super Controller II works with CoCo 1, 2 & 3. It buffers keyboard input so 
that no keystrokes are lost when disk is reading or writing. Especially useful 
with OS-9. but also works with BASIC. 



TEAC 5SB bare drive, V B height, double-sided, double density with 
all mounting hardware, needs CA-2 below to fit R.S. 501. 



$118 



(*2 shipping) BARE 



SP-C 



Serial to parallel converter converts the CoCo 4 pin serial output to run 
a parallel printer tike Star or Epson. Includes all cables. Add $10 for 
modem attachment. ($2 shipping) $gg 45 



CA-1 Cable that connects the disk controller to the drive 

CA2 $2995 



$0495 

- ^ One Drive 



Two Drive 



GUARANTEE — Howard Medical's 30-day guarantee 
is meant to eliminate the uncertainty of dealing with a com- 
pany through the mail. Once you receive our hardware, try 
it out, test it for compatibility. If you're not happy with it tor 
any reason, return it in 30 days and we'll give you your 
money back (less shipping). 



EPSON 

LX-800 *239 

Friction and tractor feed included 

160 CPS 

3K Buffer 

NLQ on front buttons 

Package includes free SP-C serial to 

parallel converter and Epson tutorial 

on disk. 




Star NX-10 Only 

FREE SP-C serial in parallel converter^ 



FRI ^F^^enon^eraHe^onverte 



WORD PACK RS 
BASIC SCREEN EDITOR 

■ Looks like Atari screen editor 

• WDrksonCoCo1,a&3 

■ Now with BO column support 

MY DOS by Chris Hawks 

• Simplify your directory 

• Accesses double sided drives 

• Use J8M Printer Port on CoCo 3 

COCO MAX byColorware 

• Specify II or III 

• Includes high res Interface 

• Animation 

• Printers supported Include. R.S. 105. TO 



$49 

$19.95 



' 



aa 



A7 

$15 
$78. 45 



130; Star: & Epson <** ""pp'"> °" ■»"»■"» 



MONITORS 

Sony KV-1311CR $449 



Regular 1625 
(M5 shipping) 



• Vivid Color 

• Vertically flat 13" screen 

• Monitor/Trinitron TV with remote control 

• 640 X 240 resolution at 15MHZ .37 mm Dot 
pitch 

• RGB analog & digital; TTL; and composite 
inputs 

• VCR inputs 

• Cable to CoCo 3 $36 

MAGNAVOX 7622 

12" Amber Screen offers 900 dots x 350 lines 
resolution at 20 MHz on a dark glass anti-glare CAT 
with built-in audio and 1 year warranty. 

7652 Green Screen • Same Specs • Same Price 







$88 

($7 Shipping) 



20 MEG HARD DRIVE 

* pre-ln stalled, formatted and ready lo run Sfc-I%^7^f 

* equivalent to 1 25 R.S. 501 's on line 

* Includes Western Digital WD1002-WK1 Controller S499 

* and Seagate 20Mog Hard Drive ,„,„ -.. . . i 

(S9 snipping) 

■ will also work with ISM & clonus 

* complete package includes 20 meg drive, case & power supply, controller and interface 
that plugs into slot W3 of muttlpack interface. 



■ 1 year warranty 



BASIC driver tets you access ihis hard drive wlhout need lor OS-9 $49,95 






Howard Medical Computers 1690 N. Elstort Chicago, IL 60622 




ORDERS 



(800) 443-1444 



INQUIRIES AND ORDER STATUS 

(312) 278-1440 



Shtmriii.rn Mmiiv 

M Mon in 

III iK! < no Sal 



WE A ,.. . MASTERCARD • AMERICAN EXPRESS 



OD OR CHECKS « SCHOOL PO'S 



Shipping charges ure lor 48 males 
APO arid Canada order alight' 
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DR. PREBLE'S 
PROGRAMS 



Introducing PYRAMIX 

For tfou-r Cofot Computet 3 ! 



PVKAKTI Is a 1001 .achlnd lan^aae BAH "HM*! exclusively to take advanta.e of nil the po»ar in yonr 13SK 
CoCo 3. The color* are brilliant, [he graphics sharp, ths action not. 

PVSMOI Eaatoni the Finest In oninatlon, [T-fllM, suun.l effects anil same play available todni. It hiw all 
tiuTe.traa you vnnt, too, such as s pause nptinn, RCO nna t» .oucs. keyboard or joystick, play, help screen, 
multiple skill level, and the ability to lockup your disk. 

Beat of all 1b the Sou price! Available today, for oaly 121.95 on disk + a/hl 



And Ligfttrtittq Strife.cs! 



UarffllNG RAM DISK lb the most versatile HAH disk for your 5lH Color Computer 31 LlGflTHlSG HAH 
DISK LfiU allow you to use up to 4 mechanical drives and 2 RAM drives- simultaneous!';,' for a total of 
6 Drives! This RAH DISK will also work simultaneouslj' with our amnztn & UCffTHIW PRINTER SP0QLER1 
$19.45 on disk * s/h- 



LIGHTSTMG PRINTER SFOOI.ER for tlie l2oK or 512K Color Corttjnjter 3> Multitask your tnpiputer! Dump 
more than 400K of BtXt to the spooler "Instantly," Then, continue your keyboard work while it all 
prints outl Also compatible with our LIGHTNING RAM DISK above, |I4,95 on disk + a/h. 

L1GMWIWC BACKUP utility for your 512K Color Computer "J reads your master disk once and! then HfcM 
superfast multiple disk backups on oil your drives! Wo need to format blank disks. Supports 35. 40 
or 80 c racks , double or single sided dlska and adjustable atep rate. J14.95 on disk + s/h. 

Qrtfet nil 5 for oufn H4JS s -h 




BASIC rRKKDCH, No one waits to bo chained down . And 
yet, l£ you type In BASIC programs. VC1|J lsyve noen 
subject to involuntary servitude! The culprit? 

BASIC'a limited EDIT command. 



Your "ASIC PREMCH] Pr og r*t**ad by Chris BsbCock for Co lor Venture, this software Rives you a 
full screen editor For typing In and editing BASIC program*) Move the Cur tor ..riywhere on the scr 
Insert delete or odd CttXt. It's the same concept as in a word processor, except you never 
leave BASlCt BASIC FREEDOM is an invisible machine Language program which you Ml turn on and off fit 
will Even Dt-BMlaD RESET wilt not hurt your BASIC FREEDDOMI Simple, yet nimirFul with an Cftsy to 
read manual. Man? extra "nice touched included, like KEY REPEAT and LOWERCASE IhTEKPRETER which 
Irttf fen type BASIC commands In upper or louur cage for ease of programming. Translation to 
uppercase Is automatic for coflBMnds. Text in, quotes is not affected, p a( £■(,(_- o | } Ot 5! 




40. or SO column display modes, 
disk far $24,95 + &/«• 



A separate version Is 



HKHTAL FHEEDCH by Dr. Preblel IHAGlNEt Sai 
very thou gh t s and eraot i ons * Jmsgine , Srt« 



SBECTA]. COCO 3 VERSION lota you work in 32, 
available for the CoCo 1 and 2. Available on 

dny, 1 computer So advanced that it rifap«rnls to your 
day , thought-<*Mitrallefl! graph lea I 1 ev t tat ion and 
^rJi,li7Bllon' PIJJG IH VOUM MIWB anu UKliOOk YOUR JOYSTICKS- Lliul day is HOHI The Radio Shack 
Color COMUtK has many advanced capabilities, just waiting to be tapped. Dr. PruMo » ProsraKS 
Combines the advanced technology of the CoCo with the anazing Radio Shack Biofeedtuick Konltor CO 
bring you 1 *Mtrntnl Freedod." p« T [d[o 2 Of ^ 

THOll^rr-aMfrROIJJTl VIDEO DlAUJOiGF-? Unlike any vide* game you hft^O ever played, out Thouahtuere 
tests your ubllUv to handle atress. Co remain calm under adverse circumstance UA BEHW l PAST 
reflene^ tfill .do you no good here, unless you first tat the fickle dragon of your fflind. Axe ypu the 
Bdtrotcly nervoua type? Many people can keep a "Poker, Pace" even when they are worried H that 
ethor* may not notlcet but can you really stop the worry Itself* Find out vith Hontal Freedom] 

AND IT 1'AIJCSI Btrt you know that the CoCo can produce incredibly realistic digital Speech without a 
special speech synthesizer? The vaico quality is so good, it sounds human. I HorrtWt. Beat of sll, no 
KKtn hnruware is heajed for speech, just some clever prog raaming by Dr. Preble. 

HKNTAh FREKDGH - Next Uree your friends aak wh.it your computer can do. BoM 
Chem Br Preble h u Thoikfthtwnre I Requires Radio Sback'a Diofceilbnck Monitor 

Catalogue 163-675. Kental Freedw - DISK Only $24.95 4- s/h 



lis 



tetsfl fr- 



vttersyou, 



* Rt'Core voice or any sounJ Into HAM 
" Rflcon) and playback at 1 speeds 

* Save and Load voice to disk 

* Select normal or high Jirtelity 

* Record mure than 2 minutes of speech If 
you hove a 512K CoCo 3 

* Fully compatible with CoCo 3 and 2 

* Features Sound Activated Playback. 
Message* will playback automat .colly for 
yuur family when any nofcse is mftde. 
Could oiso scare off prowlers* 

Vocal Freedom includes special cable. 
Requires only a low COSt amplifier (RS 
cut,. faTT-IOOB) rind an; microphone. 

On Disk, only *3<J.« * «/fl 

Cncmrpormtfl rii«ltflH> 

sound into your 
Vocni freedom, above. 

Ort^EtUk, only $14.95 + s/h 



program^* 



■ M !■-■- ■:■- 

Requires 



VDOSj Lhe UnUISC: Snvu multiple programs In memory. Or sava multiple graphic pictures In memory. Works with 
or without a disk. Let's you SAVE, L/JAD and KILL stored programs or graph Us. DIRECTORY function iltlts 
files k gives the Start h eud and execution addresses ot HChlsa laiitjunge programs and nitttbtr of free bytes 
rematfjioR. Own a RA>t disk without buying n diak drivel Requires 64K CoCo ]■ or 2, Available on tope or disk 
for $24.95 + shipping/handling. ^rn^^m^M Pflf PflPfl 1 Hlf" 2 

VDUMP, for the UnBISC: Backup all your UnBlSK fltes to a sinsle top* fllo for eaay reloading A muut for VDOS 
users I Oti tape for $14.35 + shipping/bundling. 



VPKTNT, for the UnDISK: Paper printout for UnDISK Directory. On tape. 59.^5 + s3iipplrtg/hondHua- 



Check, money (wafer, fii&stercard 

Visa or C.OH for Stopping 

in O.Syf or Canada add $Z£Q* 

1o other Countries, add t$.O0 



VISA 




ffurrk 



Ipuni Otrltt of 
COD 




Order from 

Or. Preble's Programs 

hWQ Outer Loop 

Louiwilte, KS 40228 

(502) 969-fS/8 
24 HOUR ORDER LINE 



), 2 a> :■■• ■■* 



t 



M a s 2 11 i if 

Dress uu muiii DtsS DUcttati 
unlh color I ul messci^es niifi" 
bpTiters Creole u^ihil Jirip 
rne&sows *%*** linn pro- 
festioRnJ xotirft w tpur rrc 



for hMccka! Siimkiiw 



CoCoBraille 



RHbOdS Grade 1 or Grade 2 
lira tile using your CoCo L, 2 
or 3 and a Brother Daisy Uheel 
pr Inter 1 Fast Print to 
Braille conversion algorithm 
converts word processor files, 
program listings and data 
files into touch readable 
Braille. For use by the blind 
or the sighted. No knowledge 
o f the Brni L lo ■ ■-..!.- . a 
nec£&snry. Just send print to 
the program and out cores 
Brail lei Note: The conple« 
Gri.de 2 conversion is very 
good and though not always 
perfect, quite readable. 
Requires 64K or '^ore. Brother 
IlK series printer or the If"- 50 
interface series required. 
Low Cos 1 1 S t (it la r so Etwa re 
Costs 3 times as much. Only 
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